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IDENTIFICATION 


PRODUCT ID: AC-T334A-MC 
PRODUCT TITLE: CZTUYAO TU80 FRONT-END PRT C 
PRODUCT DATE: 23 = MARCH - 1983 


MAINTAINER: T..PE DIAGNOSTIC ENGINEERING 
AUTHOR: DICE SYSTEMS, INC. 
COPYRIGHT (C) 1983 BY 2 
DIGITAL EQUIPMENT CORPORATION, 
MAY MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN Ne eed WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE pr ANY OTHER COPI 

THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
TRARCrERRED TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE Bi reat NOTICE AND 
eo i Me CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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TAPE OF CONTENTS 


ABSTRACT 
CHAPTER 1 = REQUIREMENTS 
1.1 EQUIPMENT 
4 MEMORY STORAGE 
1.3 PRELIMINARY PROGRAMS 
CHAPTER 2 = LOADING AND STARTING PROCEDURE 
2.1 ACT11 OPERATION 
CHAPTER 3 = SWITCH SETTINGS 
CHAPTER 4 = ERRORS 


4.1 ERROR TYPEQUT FORMAT (HARDWARE) 
4.2 ERROR TYPEOUT FORMAT (FUNCTION OUT OF RANGE) 


CHAPTER 5 = SUBROUTINE ABSTRACTS 
CHAPTER 6 = MISCELLANIOUS 


6.1 STACK POINTER 
6.2 EXECUTION TIME 


CHAPTER 7 = PROGRAM DESCRIPTION 
7.1 FUNCTION TIME DOC 


UMENT 
2 TEST SEQUENCE / RELATED ADJUSTMENTS / ASSOCIATED HARDWARE 
7.3 SUBTEST DESCRIPTIONS 








—~ 
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ABSTRACT 


1.0 ABSTRACT 


THIS IS A PDP=11 RESIDENT DIAGNOSTIC WHICH cmecks THE FUNCTIONALITY 
OF A TAPE SUBSYSTEM WHILE CONNECTED TO A ert SYSTEM. 
IDES ERROR WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE E DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 


1. ENGINEERING SPECIFICATION FOR TU8O MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM-C194D-022; REVISION NUMBER 2; DATE: 28-JUL~81. 


ENGINEERING SPECIFICATION FOR TU8O DIAGNOSTIC PACKAGE: DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0: DATE: 2-SEP-81. 


3. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE SUBSYSTEM; 
NUMBER: YM-C194S-02; REVISION NUMBER 3: DATE: 10-JUN-81. 


4. CIQPMAO XXDP+ PROGRAMMER’S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: 14 JULY 1980. 








2. 









DOCUMENT 
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HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 


2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 
2.1 HARDWARE REQUIREMENTS 


a TAS FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 

MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CATION: ON: DIAGNOSTIC REQUIRES a WORDS OF MEMORY 
USEABLE I.E. 4K FOR I/0 PAGE) 






2.2 OPTIONAL HARDWARE: 


UP TO 8 TU80 CONTROLLERS PER PDP-11 UP TO 1 DRIVE PER CONTROLLER 


2.35 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO.S 
PDP=11 DIAGNOSTIC LOADER/MONITOR CXXOPS) 


2.4 PREREQUISITES 


FUNCTIONAL PDP-11 FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE T 
UNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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3.0 OPERATING INSTRUCTIONS 
3.1 OPERATOR COMMANDS 










THE TU8O DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
As a ALL LOADING AND RUNTIME INSTRUC TIONS CAN BE REFERENCED IN THE 
MANUAL ‘‘CIQPMA PROGRAMME » NUMBER 








PDP-11 XXDP+ 
AC-S296A-AC. THE OPERATOR RESPONSE IS IN QUOTES. 
BOOT THE DIAGNOSTIC XXDP MEDIA 


CHMDLBO one MONITOR 28K 


""29-JAN-B2"" 





LS! 
Mee 5 IS XXDP+. TYPE “'H’’ OR ‘H/L** FOR DETAILS 


CZTUYABINORS L LOADED 

doom RUN-TIME SERVICES REV D. APR 79 
Sa TUBO LOGIC DIAGNOSTIC*#***« 

UNIT IS T 

DR> °° STA/FLA:PNT:HOE °° 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND TwO 
or ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED’’ AND HMALT ON 





3.2 HARDWARE PARAMETERS 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
$ THE WILL ISSUE THE ‘CHANGE HW?" QUESTION TO ASK IF 
SER ARDUARE PARAMETERS ARE TO BE CHANGED (BY THE WOPERATOR). 


ON_A ‘NT’ as | RESPONSE ye 4 HANGE HW?"° OYEST ION. THE DIAGNOSTIC WILL 
NOT RUN. IT WILL GIVE T + ea “NO UNIT Wes, a ig REQUIRED AND AT 
LEAST A ‘I'’ IS REQUIRED Me THE "'# UNITS (D)?** QUEST! 


TSBA/TSDB = 172520, VECTOR = 224 
ON A ‘‘'Y’’ (YES) RESPONSE TO THE QUESTION, THE FOL 


LOW! 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNI 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUES 











QUESTIONS WILL 
als a 


maa 
~ 
© 


ee ee ei - ee — 


SEQ 5 
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DEFAULT VALUE THAT WILL BE 
RESPONSE. A °*(D)** IN A QUESTION 


A RESPONSE. __AN **(O) 
AN **(L)** INDICATES THAT A 
FOR YES, “W’’ FOR NO. 





# UNITS (D) ? <ENTER THE 
PRESENT TO 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? = by THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 











VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VEC TOR> 
THE ADDRESS AND VEC BE ASKED FOR EACH OF THE NUMBER O 
UNITS (CONTROLLERS ED HE *# UNITS?°° QUESTION. LOG 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO EIGHT UNI 





SELECTED FOR TESTING. 


3.3 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START RESTART. OR CONTINUE: 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHA 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE ‘Y’’ TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS .> 


eee ee = 





H 1 


RONT END PRT C MACRO M1200 29-MAR~B3 13:43 PAGE 8 sential 


AQ F 
DOCUMENTA 


OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 


4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSFUL RUN EXAMPLE (PDP-11/LSI) 


Lk 001 on Big oy TEST 


He 005 URIT WRITE DATA RETRY TEST 
TST: 004 WRITE TAPE MARK TEST 


0 ERRORS 
NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


ee —- - 
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OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 


5.0 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 
ERROR MESSAGE EXAMPLE 1 

TST: 001 FIFO EXERCISER TEST 

CZTUY HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


plact ae —_ IN — #8: - DESIGNATOR <BIT #> 


< IFMK <9> be IRWD<2> 
TRESV V2<14> LIDENT<11> IHER <&> > ifBY<i> 
nae St <10> ISPE D< > ILDP<a> IFPT<0> 


as ie 
Or eeace ILW<6> ght o 73hhRov<4> 


: 
| 
Pessace SAGE BUFFER CONTENTS: 












WORD #1 EXPD: 


; 


+> 


a 


CV 
CV 
CV 
CV 
CV 
CV 
CV 
CV 
CV 
CV 





ERROR MESSAGE EXAMPLE 2 


CZTUY HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
NOT CT AFTER SPACE RECORDS COMMAND 





C,SSR 
INATION oe 8 UNRECOVERABLE ERROR 
= 


PACKET WORD # = & 
ERROR MESSAGE EXAMPLE 3 
CZTUY me ERR 00121 - UNIT 00 TST 001 SUB 002 PC: 023306 


"ls . XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
000312 RECV: 112 XOR: 000200 
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PROGRAM RUN TIMES 


6.0 PROGRAM RUN TIMES 


— oe 


THE AVERAGE RUN se a OF THE PROGRAM ARE LISTED BELOW.THESE FI ARE 
TO BE USED AS et THE TIMING WAS DONE ON A PDP-11/2 east 
PROCESSOR WITH A LA-30C SOLE. 





















THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS a ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH Test” IS wity BY OF TIMES INDICATED BY 
THE ITERATI TIONS "MODE IS SELECTED BY ANSWERING THE 


OUNT. 
INHIBIT ITERATIONS QUESTION WITH A ‘‘Y’’ (YES). 


TEST 
NUMBE 





THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


Q.V. ? MINUTES 
DEFAULT 31 MINUTES 
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7.0 TEST SUMMARIES 


7.1 TEST 1 = SPACE RECORDS TEST 


eccessetens at Et kane ||| 


* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT * 


REREAAEAAEEEAERERERAAEEEREREAEEERAEEEAEEEAAEAEAAARAAAEEAEERAEEKRAD 





THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 

NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUEN] TEST. THE BASIC WRITE DATA TEST 
HOULD HAVE BEEN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTES STS. IN EACH 

et REL WITH RECORDS 

SIZES AND DATA CON 
VINDICATE THAT RECORDS RELA 
EACH $ PACING OPERATION, T 
HE NEXT OR PREVIOUS RECORD AND COMP 
THE EXPECTED RESULT. 


















I ° ER 
IS VERIFIED BY READING 
THE POSITION DATA WITH 


7.1.1 TEST 1, SUBTEST 1;- 


THIS SUBTEST VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
THE CL CK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME 
CHECK FLAG (VCK) IS SET. 


7.1.2 TEST 1, SUBTEST 2:- 


THIS SUBETST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 
THE CL CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME 
CHECK (VCK) FLAG IS SET. 





7.1.3 TEST 1, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
RECORD OFF BOT AND CAUSE BOT STATUS TO BE CLEARED. 

7.1.4 TEST 1, SUBTEST 4:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 

7.1.5 TEST 1, SUBTEST 5:- 

THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
MUL TIPL EC HROUGH 64K, OR TH 

NUMBER OF RECORDS WRITTEN ON THE TAPE, WHICHEVER IS LESS.). 
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7.1.6 TEST 1, SUBTEST 6:- 
THIS SUBTEST VERIFIES THAT SPACE RECORDS mt ki CAN SPACE A 
NUMBER OF YE CORDS WRITTEN ON THE TAPE, WHICH CSR IS LESS). 


7.1.7 TEST 1, SUBTEST 7:- 


THIS rae VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE 
T IS AT BOT RESULTS IN FUNCTION erie TERMINATION WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


7.1.8 TEST 1, SUBTEST 8:- 
THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND T 
CAUSES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT INITIALLY 


NAT 
BOT) CAUSES A TAPE STATUS ALERT TERMINATION AND SETS THE REVERSE 
INTO BOT (RIB) STATUS BIT. 


7.2 TEST 2 = REREADS TEST 


THIS TEST VERIFIES THAT THE REREAD PREV 
yer OPE PROPERLY. VARIOUS COMB 















SWAP (SUP) 
TESTED ARE PROPER TERMI 
TIONS: {RECORD LENGTH LONG, RECORD 
SE A ILLEGAL DATA SUrrER® ADDRESSES, 
AND DATA BUFFERS IN SONERISTENT BOneMOR 


7.2.1 TEST 2, SUBTEST 1;- 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH A SERIES OF TAPE RECORDS VARYING IN LENGTH AND 
DATA CONTENT. THE TAPE IS THEN REWOUND AGAIN. FOR EACH RECORD 

THE TAPE IS SPACED F ONE RECORD AND THE REREAD PREVIOUS 
COMMAND IS ISSUED. RESULTS (STATUS DATA A ) ARE VERIFIED. 
THE BYTE COUNT ON EACH REREAD PREVIOU A SMRAND $ SET TO THE 
LENGTH OF THE EXPECTED RECORD, ep NO exe XCEPTIONAL ONAL CONDIT IONS 
SHOULD OCCUR. 









7.2.2 TEST 2, SUBTEST 2:- 
THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
AND SWB=1 OPERATES TEST 


LY. QUENCE IS THE SAME AS THAT 
USED IN SUBTEST 1, BUT IT IS VERIFIED THAT DATA STORES BY THE 
COMMAND CONTAINS SWAPPED BYTES. 
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7.2.3 TEST 2, SUBTEST 3:- 


THIS SUBTEST VERIFIES THAT THE REREAD PREVI COMMAND WITH 
OPP=1 (R ort a ao FORWARD a ety 
THE Ly IS F 


RST 
RECORDS OF VARYING L 
OF EACH RECORD CONTAIN ITs RECORD NUMBER cinpIc ON ON 
TAPE). THE TAPE I WOUND AGAIN. FOR EACH TEST RECORD THE 
FOLLOWING SEQUENCE IS EXECUTED: 


1. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED AND 
* RESULTS ARE CHECKED. 
re N ISSUED AND THE DATA IS 


READ F COMMAND IS THEN 
CHECKED TO VERIFY THAT THE TAPE WAS POSITIONED PROPERLY 
AFTER THE REREAD PREVIOUS COMMAND (E.G. THE ay SHOULD HAVE BEEN 
LEFT POSITIONED AT THE START OF THE TEST RECORD.) 
READ F LEAVES THE TAPE POSITIONED PROPERLY 
AT THE START OF THE NEXT RECORD. 


THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE LENGTH 
OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 












7.2.4 TEST 2, SUBTEST 4:- 
THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
1 OPERATES PROPERLY. 


LY. THE TEST SEQUENCE IS THE SAME AS THAT 
USED IN SUBTEST BUT IT 1S VERIFIED THAT DATA STORED BY THE 
COMMAND CONATINS SWAPPED BYTES. 


7.2.5 TEST 2, SUBTEST 5:- 





RECORD L 
ALERT TERMINATION WITH THE RECORD L T SET. 
RESULTS ARE VERIFIED FOR BOTH STATES OF OPP ( 0 AND 1) 


7.2.6 TEST 2, SUBTEST 6:- 


THIS SUBTEST VERIFIES THAT A_ REREAD PREVIOUS COMMAND READING A 
CORD HE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 

ALERT TERMINATION WITH THE RECORD LENGTH SHORT (RLS) BIT SET. 

IT IS VERIFIED THAT THE RESIDUAL BYTE COUNTER (RBPCR) IN THE 

MESSAGE BUFF TAINS THE APPROPRIATE NONZERO VALUE (E.G 

THE DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE ACTUAL 

ra > oe RESULTS ARE VERIFIED FOR BOTH STATES OF OPP 









7.2.7 TEST 2, SUBTEST 7:- 


a SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH ? 0 
SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
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WRITTEN WITH A SERIES OF TEST RECORDS OF VARYING LENGTH AND DATA 
C HE TAPE IS THEN REWOUND AGAIN. 


ONTENT. FOR EACH TEST RECORD THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD NEXT COMMAND IS 
ISSUED. RESULTS Aah F DATA, ETC.) IS VERIFIED. THE BYTE COUNT 
ON EACH REREAD NEXT SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 









7.2.8 TEST 2, SUBTEST 8:- 


THIS eS VERIFIES THAT " REREAD NEXT COMMAND WITH OPP=0 
AND RATE THE TEST SEQUENCE IS THE SAME AS 
THAT USED IN SUBTEST 1, BUT” IT IS VERIFIED THAT DATA STORED BY 
THE COMMAND CONTAINS SWAPPED BYTES. 








7.2.9 TEST 2, SUBTEST 9:- 


THIS ad VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
D, SPACE REVERSE) AND ao OPERA ; nee tech THE 
T REWOUND AND THEN FT 


SFI 
RECORDS VARYING IN LENG 
OF EACH RECORD CONTAIN ITS RECORD 
ON T APE IS THEN REWOUND A 
THE FOLLOWING SEQUENCE IS EXECUTED: 


1. THE pene NEXT COMMAND WITH OPP=1 IS ISSUED AND THE RESULT 


2. A READ COMMAND IS THEN ISSUED AND THE DATA_IS CHECKED 
TO VERIFY THAT THE TAPE WAS POSITIONED PROPERLY AFTER THE 
REREAD NEX (E.G. THE TAPE SHOULD HAVE BEEN ‘ 
POSITIONED AT THE START OF THE TEST RECORD). THE READ FORWARD 
COMMAND LEAVES THE TAPE POSITIONED PROPERLY AT THE START OF THE 
NEXT TEST RECORD. 


THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE LENGTH 
OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 








ON 
- FOR EACH TEST RECORD 















7.2.10 TEST 2, SUBTEST 10:- 


THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
AND SWB=1 OPERATES RLY. THE TEST SEQUENCE IS THE SAME AS 
THAT USED IN SUBTEST 3, BUT IT Is VERIFIED THAT DATA STORED 
BY THE COMMAND CONTAINS SWAPPED BYTES. 


7.2.11 TEST 2, SUBTEST 11;- 


THIS SUBTEST VERIFIES THAT A REREAD NEXT COMMAND READING A 
RECORD L HE SPECIFIED BYTE COUNT CAUSES TAPE 

STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG on 

BIT SET. RESULTS ARE VERIFIED FOR BOTH STATES OF OPP ( 1 AND 0). 


7.2.12 TEST 2, SUBTEST 12:- 


SEQ 15 
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NTATION 










THIS SUBTEST VERIFIES THAT A REREAD NEXT COMMAND READING 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES T AUTS 
TERMINATION WITH THE RECORD LENGTH SHORT (RLS) BIT SET. I 
VERIFIED THAT THE sytte BYTE COUNTER IN THE wtp BUFFE 
CONTAINS THE RO SAGE (E.G. THE DIFFERENC T 
THE THE ORIGINAL BY TE COUNT AND THE ACTUAL RECORD LENGT 
ARE VERIFIED FOR BOTH STATES OF OPP ( 0 AND 1). 








7.2.13 TEST 2, SUBTEST 13:- 
THIS id VERIFIES THAT A DATA BUFFER ADDRESS iat aw ge ye B 
NONE XISTANT . Y RECOVERABLE ERROR TERMINATION 

WITH NXM=1 AND THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY 
ALL COMBINATIONS.” OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
7.2.14 TEST 2, SUBTEST 14:- 
THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WiTH OPP=0 (SPACE 
REVE FORWARD) R 





SPA ORWARD) IS WHEN THE TAPE IS POSITIONED AT BOT CAU 
chaGe iT so TERMINATION WITH THE NONEXECUTABLE FUNCTION (NEF) 








a spi A yi Ale: THAT THE REREAD PREVIOUS WITH rs 4 (SPACE 


E FORWARD) ISSUE 
SF CORD ON TAPE ( BUT NOT A 
WITH THE REVERSE INTO BOT (RIB) STATUS BIT SET. 





SUED WHEN THE 





7.3 TEST 53 = WRITE DATA RETRY TEST 


TTT titi iiiiiiiiiiiiiii iii litt tii tier ee tT 
. ere THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
Y TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT. * 


pI A Bo TI oct nile Pte i ete Be <p 






THIS TEST VERIFIES PROPER aQRERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE WRITE DATA). THE TEST CONSISTS 
OF THE FOLLOWING FIVE cubtest $. 


7.35.1 TEST 3, SUBTEST 1;- 
THIS SUBTEST ert ine THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE IS 


POSITIONED AT BOT CAUSES FUNCTION ayers TERMINATION 
| WIT4 THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 








EREAD PREVIOUS WITH OPP=i (READ REVERSE 


) AND REREAD ag WITH OPP=0 ( READ REVERSE, 
TAPE POSITIONED JUST BEFORE THE FIRST 
T BOT) CAUSES TAPE STATUS ALERT TERMINATION 
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7.3.2 TEST 3, SUBTEST 2:- 


THIS SUBTEST ves ies THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
THe TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE ( NOT 

AT BOT) CAUSES TAPE STATUS ALERT TERMINATION, WITH THE REVERSE 
INTO BOT (RIS) STATUS ERROR BIT SET. 






7.3.3 TEST 3, SUBTEST 3:- 


THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN 
ae USED. READ AND CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS 


7.3.4 TEST 3, SUBTEST 4:- 


THIS SUBTEST VERIFIES THAT A WRITE DATA_RETRY COMMAND WITH SWB=1 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN 
ge By READ AND CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS 


7.35.5 TEST 3, SUBTEST 5:- 


THIS SUBTEST a A THAT A _WRITE DATA RETRY COMMAND IS PERFORMING 
RES OF eters, THE OPERATION BY PERFORMING THE FOLLOWING 


1. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE WRITTEN 
WITH THE NORMAL WRITE DATA COMMAND. THIS SHOULD RESULT 
IN RECORDS SEPERATED BY THE STANDARD INTERRECORD GAP. 


2. A PROGRAM TIMING VALUE IS CALIBRATED BY oreo tee THE 
TAPE AND THEN CONTINUING THE THROUGH 
A_PROGRAMMED REQUIRED TO SPACE OVER. THE SERIES 
OF RECORDS WRITTEN IN THE PREVIOUS STEP. 


THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF _— 
WRITTEN AGAIN, THIS TIME USING THE WRITE DATA RETR 

COMMAND. RESULT IN RECORDS SEPERATED BY A 
A LONG INTERRECORD GAP. 


4. THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND ISS 
AND THE NUMBER OF TIMING LOOP CYCLES COUNTED TO SSUBLETE 
THE OPERATION. 








3. 












COMPARED, CHECKING TO SEE THAT THEY 


5. THE TWO LOOPS ARE 
DIFFER BY A SIGNIFICANT AMOUNT. 


7.4 TEST 4 = WRITE/READ TAPE MARK 


SAMAK AKSKS PERAAAAAAAAAAASAAHAAAAAAEAAATEAAAAAAAAAAERAAAEARAAEAAARERE 


* NOTE; THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 


SEQ 15 





— _—— - - 
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* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT * 


| SAAS AEKSSAAAAARAAARAAEAAAEAAAAASAAAEAAATALETREPSRERAARAARARAAARARARAAE 


THIS TEST venir tes THAT THE WRITE TAPE MARK COMMAND OPERATES 
IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
READ AND SPA OMMANDS DETECT 


























PROPERLY. 

BY CHECKING THAT THE CE RECORDS C THE 

TAPE . IN ADDITION, SINCE WRITE MARK IS THE FIRST 

SUBCOMMAND UNDER THE FORMAT C TESTED IT is VERIFIED 

THAT THE CLEAR VOLUME CHECK ( S PROPERL 

FORMAT COMMANDS WITH ILLEGAL "REJECTED ‘ 

7.4.1 TEST 4, SUBTEST 1:- 

THIS SUBTEST VERIFIES THAT A FORMAT COMMAND (WITH ANY 

CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED 
VOLUME CHECK (VCK) FLAG IS SET. ALL VALID MODE 


IF THE 
ARE CHECKED. 


7.4.2 TEST 4, SUBTEST 2:- 


THIS SUBTEST VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL 
MODE CODE CAUSES tat! REJECT TERMINATION WITH THE 
(ILC) ERROR BIT SET. ALL ILLEGAL MODE CODES 





ILLEGAL 
ARE CHECKED. 


7.4.3 TEST 4, SUBTEST 3:- 


THIS SUBTEST VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
OPE OMMAND S SUBSEQUEN NTLY ISSUED TO DETECT 
THE ORITTEN TAPE MARKSTERMINATE WITH THE TAPE STATUS ALERT 
WITH THE TAPE MARK DETECTED (TMK) STATUS BIT SET. THE FOLLOWING 
SEQUENCE IS EXECUTED: 


1. THE CONTROLLER IS STU eee 8 AND THE TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 


2. A WRITE TAPE MARK COMMAND, WITH CVC=1, IS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED (I.E. 
VCK=0, AND TMK=1). 


SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH yo. 
eS ere IER PROPER TERMINATION (NORMAL) AND STATUS 


4. A_READ REVERSE COMMAND IS _IS 
(TAPE STATUS ALERT) AND STATUS (TMK) VERIF 
ALSO VERIFIED THAT NO DATA IS TRANSFERRE 


R 
5. A SPACE RECORDS REVERSE COMMAND IS ISS 
TERMINATION (TAPE STATUS ALERT) AND STA 




























T ) 
6. THE TAPE IS REWOUND AND A READ FORWARD C I 
AND PROPER TERMINATION (TAPE STATUS ALERT) AND S 
(TMK) VERIFIED. IT IS ALSO VERIFIED THAT A 


— ee ee --< 


—_—_—_—_—_———-  -_ -——_- . LL rT - 
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TRANSFERRED INTO MEMORY. 
, SPACE RECORDS an COMMAND THAT CONTAINS A RECORD 


1 IS ISSUED, AND IT IS VERIFIED 





PROPER 

DETECTION o THE 
OPE 0 BE ga LY TERMINATED. THIS SHOULD LEAVE 
POSITION sust BEFORE THE FIRS 


TAPE POSITION IS VERIFIED BY sey 
RECORDS REVERSE COMMAND AND gl 






ING were SPACE 
YING THAT TAPE STATUS 
ALERT TERMINATION OCCUR oe, WITH THE REVERSE INTO BOT 





(RIB) ERROR STATUS BIT S 


A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A RECORD 
GREATER THAN 1 IS ISSUED AND IT IS VERIFIED THAT TAPE 
STATUS ALERT TERMINATION OCCURED 

RBPCR (RESIDUAL BYTE/RECORD COUNTER) CONTAINS THE 
PROPER NONZERO VALUE. THIS OPERATION VERIFIES THAT 
DETECTION OF THE K CAUSES THE SPACE RECORDS 
OPERATIONS TO PREMATURELY TERMINATE. 








SEQ 17 


ee 





2 
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791 .SBTTL PROGRAM HEADER | 
.MCALL SVC 
§vC 


fs 
000000 
~ENABLE LC 
1 -NLIST BEX,CND 
e 000000 + eee 
003000 


; INITIALIZE SUPERVISOR MACROS 









002000 - = 
BGNMOD TUV2A 
TUV2A: : 





g10 
11 i++ 
1g > THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
13 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
15 i 
1 
7 102000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU, BGNRPT ,BGNSETUP 
18 00200 HEADER (CZTUY.A,0,655..0 
10200 LSNAME : : DIAGNOSTIC NAME 
10200C 193 ASCII /C/ 
05002 «134 “ASL /T/ 
202004 131 ASCII Ns 
$14 4! 4 @ 
i) t., -BYT 
0 50C 009 ‘BYTE ( 
02¢ LSREV:: ;REVISION LEVEL 
4 44 101 — /A/ 0 
90201 060 ““ascll /0/ 
00201 LSUNIT:: ;NUMBER OF UNITS 
002012 000001 .WORD TSPTHV 
00201 LSTIML:: sLONGEST TEST TIME 
902014 001217 «WORD 655. 
sate 072266 LSHPCP: : en :POINTER TO H.W. QUES. 
00202 LSSPCP:: POINTER TO S.W. QUES. 
102020 072406 .WORD LSSOFT 
eats cabins LSHPTP::" gy PTR. TO DEF. H.W. PTABLE 
if if LSSPTP::" :PTR. TO S.W. PTABLE 
002024 002134 .WORD LSSW 
DOeOee 073350 LSLADP:: a sDIAG. END ADDRESS 
002¢ iC LSSTA:: RESERVED FOR APT STATS 
0205. 000000 ‘Sem; -WORD 0 
102032 000000 "WORD 0 
002034 LSDTYP: ‘ ;DIAGNOSTIC TYPE 
002036 LSAPT:: . ;APT EXPANSION 
002048 mt Lsprp:: “wo sPTR. TO DISPATCH TABLE 
102040 072574 WORD LSDISPATCH 


026 LSPRIO:: :DIAGNOSTIC RUN PRIORITY 


eee 
G6 2 





SEQ 19 
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PROGRAM HEADER : 
%42 000000 0 | 
005 LSENVI: : sFLAGS DESCRIBE HOW IT WAS SETUP 
ne — LSEXP1: : ;EXPANSION WORD 
102046 000070 0 
00255¢ LSMREV: : sSVC REV AND EDIT # 
002050 005 BYTE CSREVISION 
8 4! 1 BYTE CSEDIT 
1990 LSEF:: :DIAG. EVENT FLAGS 
4 


f= 
: 
o oo 


003066 LSDEVP::" ; POINTER TO DEVICE TYPE LIST 
06¢ LSREPP:: ;PTR. TO REPORT CODE 



























= oe ome oe oe 
Toa 
¢ 
NA 
=) 
3 
o 
ea 
sa 
co 
uv 
— 





+++ 
+ > 
o 
So 


LSAUT:: — ;PTR. TO ADD UNIT CODE 
— LSDUT: : ssocsttaaneaties ;PTR. TO DROP UNIT CODE 
— LSLUN: : oe. a ;LUN FOR EXERCISERS TO FILL 
— Lspesp::9 ’ ;POINTER TO DIAG. DESCRIPTION 
— Lsuoap:: erate ;GENERATE SPECIAL AUTOLOAD EMT 


—>—>_ >_>? 
Pie, 


as 


> 
SOOO” 


> 


> 


2—s 


= 
NNNN 
SON RN 


a 


i 5 EMT _—s ESLOAD 

ii votes LSETP:: : POINTER TO ERRTBL 

if oe wae ‘sit PTR 7 INIT CODE 
0031 ei eee vscucan PTR? 1 CLEAN-UP CODE 
if eon a, gato 7? TR: 10 AUTO CODE 
0211 tseprt::; “9 PTR. TO PROTECT TABLE 
002112 021752 WORD LSPROT 

20811 LSTEST:: : TEST NUMBER 

d0g114 000000 SDLY:: . ‘DELAY COUNT 

poe 000000 ESDE Nes orp 0 . 

1021 LSHIME:: sPTR. TO HIGH MEM 

102120 000000 -WORD 0 


SSeS 

ee 

m im 

= 

wn & 

ee 
ee .t—S—SC4C‘CONNCO(O#(C(ija._a‘i‘’jylNyN’#..U.l.. gee 
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-SBTTL DEFAULT HARDWARE P-TABLE 
: "THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALLES OF 





Se TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
ah ses TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


$ as BGNHW DFPT :DEFAULT HARD-P-TABLE 


t. 000003 intins -WORD L1 SHw/2 
126 DFPTBL:: 
.WORD 172522 : 2ND (OF 2) REGISTERS. 
1 é 008284 “WORD ie 7 > INTERRUPT VECTOR 
1 $6 “WORD  PRIOS : INTERRUPT PRIORITY. 
1 ENDHW 
1 L10000: 


SEQ 20 





ae 
eee ee 


—— 


—_—_—_——————o_—_ ee 
. 2 


1 
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-SBTTL SOFTWARE P-TABLE 


s+ 
THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 





1 BGNSW PTBL 
ie 000004 WORD 710007-L$Sw/2 
1 LSSW:: 
861 1 SFPTBL:: 
¢ Opes 000000 TRANSTST:: eWORD 0 3 
1 000000 NOITS:: eWORD 0 3 
5 ; 
140 joie ED LERRMAX: : eWORD 25. 3 I 
142 000310 GERRMAX: : eWORD 200. : GLOBAL (PER UNIT) ERROR LIMIT 
8 144 £10001 ENDSW 
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SOFTWARE P-TABLE 


SEQ 22. 


26 .SBTTL GLOBAL EQUATES SECTION | 
0 
71 | 
Le: 
¢3 .SBTTL GLOBAL EQUATES SECTION | 
75 244 
26 * THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
Me > ARE USED IN MORE THAN ONE TEST. 
79 e@ 
879 002144 EQUALS : GET STANDARD EQUATES. 
* BIT DIFINITIONS 
B1T15== 100000 
BIT14== 4 
BIT13== 
BIT12== 1 
BIT11== 
BIT10== 
se 
= 
BI Sa 
BIT06== 1 
ot Totes 2 
ss 
sites: #8 
BITO2== 4 
BITO1== 2 
B1T00== 1 





eae, Hhent Peng teeny Gees (rag Baesy bony hey 
i ad St mt 


ooo 
=Now 


BITi== 
BITO== 


> EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


SSseeeee 

wWowowwwwwe 

ol sa geese fevet 

nd ef dd a ah md 

ae 

“ nn ul w 
nnHenhi a 

OBaoaoawwaonqoaww 


@w 
Berd 
“4 
S 








000040 EF .START== ; : 
EF .RESTART== & g 
EF. CONT INUE== ‘ 3 ¢ 
EF LNEW== ‘ : 
34 EF .PWR== 8. > A POWER-FAIL/POWE 


PRIORITY LEVEL DEFINITIONS 








| K 2 
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GLOBAL EQUATES SECTION 


0 PRIO7== 340 
= 


SEQ 25 


ase << aw += 


S35 

Dx 
sortie 

3s 


“OPERATOR FLAG BITS 

























000004 4 
10 10 
0 20 
360 +60 
00 400 
1 1000 
£000 
01 1 
04 4 
BBs 
5 002144 KT11 “DEFINE MEMORY MANAGEMENT REGISTERS 
.SBTTL MEMORY MANAGEMENT SEE TNITIONS 
-#KT11 VECTOR ADDRESS 
panned Ha € ’ REGISTER ADDRESSES 
17757 SRO= ss 
17757 SR 1 
177576 SR2= sid 
172516 SR a 1 
*USER ‘I'’ PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177 
UIPDR1= 177 
UIPOR@= 177 
UIPDR3= 1 
UIPDR4= 177 
UIPDRS= 17761 
UIPDR6= 177614 
UIPOR? = 177616 
**USER ''D'’ PAGE DESCRIPTOR REGISTORS 
UDPDRO= 1776 
UDPDR1= 177 
UDPDR2= 177624 
UDPDR3= 177 
UDPDR4= 1776 
Looe 1796 
LOPDR ¢: 1776 
ENDC 


USER “I'’ PAGE ADDRESS REGISTERS 








| L 2 
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UIPARO= 17764 
UIPAR1= 17766 
UIP. 177644 


UIPAR6= 
UIPAR7= 177656 


1 
1 
14 
16 
*D** PAGE DESCRIPTOR REGISTERS 


4 


o PAGE ADDRESS REGISTERS 
4 
3 
5 
5 


54 
56 


*D*’ PAGE ADDRESS REGISTERS 





SSERS 


SEQ 24 


eel 


ww 
™N 
re 
; 
| 
ww ” 
A ry 
te ee Ww MN 
” Ww rs a 
wees os uu Ui 
oO iL) a foe 
“ @ @ = ” 
br = 
= oS S oe = 
— — 
a. a (7) CF) 
a w us ue 
[= t ae a& 
Ww Ww 
i i 3 e 
{=} 
B @ S 2 
A. * 
“guagerse Teenspons ‘eras “eases 
° ee 
RARRRRRR Seer ee " Seesseee 





it 


sidiieeel 


tung Omg Cong ung Ourg O=ng 


Mae Ma 28 


i + 2 + + t+ f+ f Se 


ee 





| 
Soule 
ae 





we 
F 
uw 

. 
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ang: 173508 
74 
76 


gaagenss 
Cre = oC 

VNNNNNNIN rn 
a poe ee re ee ee 





caT 
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Senses aase 
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EREELEF 
Oulwy—o 
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-SBTTL TUBO REGISTER AND PACKET DEFINITIONS 


SOME GENERAL EQUATES. 


ERRVEC== & : POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
TTIVEC== 60 : INTERRUPT VECTOR FOR CONSOLE INPUT 
TTICSR== 177560 : ESS CONSOLE INPUT 

TTIBFR= 177562 ; CONSOLE INPUT DATA BUFFER 


3+ 
BIT DEFINITIONS FOR TSSR REGISTER 








sc= BIT15 sSPECIAL CONDITION 
BIE= BIT14 BUS bbe Say ERROR 
SCE= BIT13 sSANITY CHECK ERROR 

= BIT12 sMODIFICATION REFUSED 
NXM= B1T11 sNONEXISTANT MEMORY ERROR 
NBA= BIT10 sNEED BUFFER ADDRESS 
HIADDR= BIT9!BITS ; EXTENDED ADDRESS BITS 
a BIT? ;SUB SYSTEM aatl 


; OFF 
SFATAL TERMINATION ERROR CODES 
S TERMINATION CODES 


atts 
FATERR= BIT4!B1TS 
TERCLS= BIT3!B1T2!B1T1 


sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 

: (xSTO) 

XSOTMK= BIT15 TAPE MARK DETECTED 
XSORLS= B1T14 {RECORD LENGTH SHORT 
XSOLET= BIT13 sLOGICAL END T 

XSORLL= BIT12 sRECORD LENGTH LONG 

XSOWLE= B1T11 sWRITE LOCK 

XSONEF= BIT10 sNON EXECUTABLE FUNCTION 

XSOILC= BITS : ILLEGAL COMMAND 
SOILA= BITS : ILLEGAL ADDRESS 

XSOMOT= BIT7 :TAPE IN MOTION 

x = BIT ’ PORT 

XSOIE= BIT : INTERRUPT ENABL 

XSOVCK= BITS s VOLUME CHE 

x D= BI sPHASE ENCODED DRIVE 

XSOWLK= BIT2 sWRITE LOCK 


BEGINNING OF TAPE 


XS 
XSOEOT= BITO SEND OF TAPE 


3+ 
1S aia FOR EXTENDED STATUS REGISTER 1 


SEQ 26 
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SEQ 27 




























947 1 x1 = BIT15 :DATA LATE 
948 04 X1.SPARE= BIT14 “NOT USED 
94 %1.COR = B1T13 ; CORRE CTABLE DATA ERROR 
1 = B1T12+B1111+B1T10+B1T9+B1T74#BI T6*B1T5+BI T4+BIT3+BITZ2+BITO ;ALWAYS 0 
09 x1 = B1T8 RE PARITY ERROR 
x1 = BIT1 “UNCORRECTABLE DATA OR HARD ERROR 
ha 
336 :8 EF INITIONS FOR EXTENDED STATUS REGISTER 2 
958 ; 42.0PM = BIT15 OPERATION IN PROGRESS (TAPE MOVING) 
95 04 X2.RCE = BITI4 “RAM CHECKS 
360 35400 X2. SPARE= BIT1$0B1T 12081111981 T9SBI78 USED BY TU80 (ALWAYS=0) 
2000 X2.WCF = BIT10 (oe SECURE (FIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT7 CHAR CMD THEN = EXTENDED FEATURES ENABLED 
965 100 X2.BUFE = BIT THEN = BUFFERI 
77 X2.REV. = CHAR CMD THEN = MICROCODE REVISION LEVEL 
x 7 X2.UNIT = BIT2+BIT1+¢B1T0 TATUS THEN = CURRENTLY SELECTED UNIT NO. 
3+ 
“BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
S H 3 (XST3) 
971 177400 X3.MDE = sMICRO=DIAGNOSTIC ERROR CODE 
97 0002 X3.SPARE= B1T7 “NOT USED BY T 
97 00 X3.0P] = BITS “OPERATION INCOMPLETE 
7% X3.REV = BIT *REVER 
975 20 X3.TRF = BITS * TRANSPORT RESPONSE FAILURE 
97 X3.DCK = BIT3 : DENSITY CHECK 
97 X3.MB2 =B1T2¢BIT1 T USED ALWAYS 0 
9 X3.RIB = BITO REVERSE INTO BOT 
3+ 
i817 DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
1 ts = BIT15 :HIGH SPEED 
5 04 X4.RCE = BITI4 “RETRY COUNT EXCEEDED 
2 %4.1SM = BIT13 °T T SPECIAL MODE 
0174 X4.MBZ = AT1Z4B1T11+BIT10+B1 1948118 “NOT USED ALWAYS 0 
37 X4.WRC = 000377 WRITE RETRY COUNT FIELD 
3 * 
$35 *TSSR TERMINATION CODES (BIT 0-2) 
5 = 
99 000006 TSREJ= 3#2 sCOMMAND REJECTED 
UNREC= 6 “UNRECOVERABLE ERROR 
1001 + 
2 “DEVICE REGISTER OFFSETS 


con® TUSO FRONT END PRT 
T REGISTER AND PACKET DEFINITIONS 


Se 


ooooo 
ke ed ed ed od od td = 
NOUS WN (OOS NOU Swit" oO 


COSCOCoSO 


a oa oo ee ee Pe ee ee ee ee ee ee ee ee ee ee ee ee ee ee SS ee ee eS 
Ww 


sggegeraasee® 
UEWN—O NOU Swit 


177776 
177776 
eet 
1 
177777 
1 


7 
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TSBA== - 
TSBAL== - 
TSDB== _ 
TS == - 
T == -1 
TSDBH== - 
TSSR== 0 
TSSRH== 1 


:" TSDB ADDRESS BIT DEFINITIONS 
A1716 = BIT1+BITO 
°+ 


b.GETSTAT = 17 

PLINIT = 13 

P. CONTROL = 1 

P. FORMAT = 11 

P. POSITION = 10 

P.WRTSUB : 

P.WRITE 2 

P.WRTCHAR =4 

P READ = 1 

* COMMAND PACKET HEADER 
P.ACK = BITIS 
P.CVC = BIT14 
P.OPP = BIT13 
P.SwB = BIT1 
P.MODE = BIT11! 
P.IE = BI1T7 
P.FMT= B1T6:B1T5 
P.CMD = 37 

2¢ 

* CONTROL COMMAND MODE CODES 
PC RELEASE = 0*256. 
PC REWIND = 1#256. 
PC .NOOP = 20256. 
PC. IEREW = 44256, 
PC .ERASE = §*256. 


oe 
; CONTROLLER RAM DEFINITIONS 


167 
G= 


104 





Teak REGIST 


ee ee ee — 


; TSDB/TSBA 


R TER 
;TSDB/TSBA R 
R 


GIS 

GISTER 

gisven HIGH BYTE 
R 


GIST 
[TSSR REGISTER HIGH BYTE 


ADDRESS BITS 17:16 ARE IN 1;0 






GET STATUS 
s INITIALIZE 
;CONTROL COMMANDS 


POSITION 

; SUBSYSTEM WRITE 
CWRITE CHARACTERISTICS 
READ 


WORD BIT DEFINITIONS 









sBUFFER AVAIL FOR CONTROLLER 
;CLEAR VOL CK 

SREVERSE SEQUENCE OF DATA BITS 
:$ IN MEMORY 
sEXT 
; INTERRUPT E 

sPACKET HEADER itor (ALWAYS=0) 
sMAJOR COMMAND FIELD 


ein BUFFER 
REWIND 


:NO-OP 
;REWIND eae INTERRUPT 





SEQ 28 
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SEQ 29 
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1 000117 RMMSGEND= 117 ;MESSAGE BUFFER END RAM ADDRESS 


“REGISTER DEFINITIONS IN THE MESSAGE BUFFER 


aus eens. ee So — 


138 





SE 


“OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


SO0900000000 
Se 
‘ 












3+ 
*BSEL1 CODES FOR WRITE TAPE CONTROL 
000200 WC. IFAD = B117 s IFAD = FORMATTER ADDRESS 


2 PKLOW =2 sLOW ORDER CHARACTERISTIC DATA POINTER 
PKHI =4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
000010 EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
s® 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
7 BSELO =0 :BYTE 0 
1 hh = 1 BYTE 1 
2 SEL =2 s WORD ¢ 
SELDATA = 4 : WORD 
5 s+ 
5 sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
= 0 : 
= sREAD 
1 = ¢ sWRITE 
1 = sREAD FIF 
1 = 4 sWRITE FIFO 
1 = § sREAD STATUS 
1 = § sWRITE TAPE CONTROL 
105 = sWRITE TAPE FORMAT 
1 = 10 sWRITE MISCELLANEOUS 
1 = 11 sWRITE 
1 = 20 *DO MICROTEST 22 
1 = 2] :D0 MICROTEST 11 
110 = ¢ :D0 MICROTEST 13 
117 = sDISABLE MICROTEST 11 AND 13 
\"¢ = 24 *READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPC 
114 
Hf 
19 





Se ee 
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13 1 -10TAD = BITE ; 
1 11TAD = BIT : 
~ ISRESV = BITS : 

~ IREW = BITS : 

~ IRWU = BIT ; 

2 ~ IFEN = BIT1 : 

- 160 = BITO : 





sBSEL1 CODES FOR WRITE FORMAT 


BNOUL WIN 


SSSSSSSS ios SSSSSSS 


200 oF. IHISP = BIT? sIHISP = HIGH SPEED 
iN - IWRT = BITS sI1WRT = WRITE 
1 - IREV = BIT sIREV = REVERSE 
* - 1WFM = BIT4 sIWFM = WRITE FILE MARK 
1 -IEDIT = BITS sIEDIT = EDIT 
“tees = BIT2 2 TERASE - ERASE 
5 2 - ISRESV = BIT1 sIRESVS - RESERVED * 
1 - I4RESV = BITO sIRESV4 = RESERVED #4 





3+ 
3BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 


s INVERT SENSE OF EXTENDED FEATURES SWITCH 
RESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
SATTENTION TRI LD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 





sNO-OP (NOTHING TRIGGERED) 
sSIMULATE ON-LINE/OFF-LINE 
sFORCE NON-FATAL RAM 
SFORCE FATAL RAM ERROR 






MSW O OB NOAUL WN Oo 


Ce ee ttt a ee yy ee Tee A 





ed eed eed ee ceed ceed ened ee ee ee ee ceed re eed eed ced ed ee ec ee ced ced cee cee ee ce ce ceed ee ced ce eed ce ced ed ce cd ed eed ced ced ee ced ed ed ed ed ed ed ed ed eed ed oe ed ed = 
ee ee ee cee ce ee cel ce ce ee ce ced ce cee ce ee ce ee cd ce ce ced ce ceed ce cD ceed ce cd ee ce cc ce ce ced cd ce ced ed ce ce ed ed ed ee ed ed ed ed ed od ed 


3 "WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
IR = BIT? s INTERRUPT REQUEST (0-1 Ls ay Ut ee 
3 NP.OUT = BIT “TAPE DATA DIRECTION OUT (O= IN) 
NP.LOOP = BIT sENABLE TRANS L 
39 WP = BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
6¢ ; "READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
r¢ S$ = BIT7 ; WORD #9 BYTE 2 DATA IN MISS 
66 5 = BITS 5 WH 
= BIT s OUT RDY 
§ = BIT4 ; IN RDY 4 
= BIT 3 TIMER A LAG - 
§ = BIT ; TIMER B FLAG H 
71 S = BIT1+BITO A oa NED) 
i S = BIT15 BYTE 1 PARIN_H 
7 5 = BIT14 IRESV2 
74 S = BIT15 : IRESV1 





ea 


oe ee eed ced 8 ed ced ed ed cee cd ee ce cee ce ced ced ee cee ce ed cc ce ed ce cd ee ee) cd cd ee ced ce eed eed ee eed ed on ceed eed ed ee ed sd oo 


a ee ee ee eee 


Soo NOUSW Oo 





AO TUSO FRONT END 
REGISTER AND PACKE 





1775 
177 
177 
177 
00 


ANN 
RRR 
ESRVS 
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FIWITIONS 


EOT 


an] 
m 
= 


aon 
oe 
m 
=] 


St 
S 


ee 
~< 


I 
i 
I 
I 
I 
I 
IRDY 
I 
I 
I 
I 
I 
I 


a a, 
v®@ 


@e 
essesessueens 
eeeeeseeee#rfee#8e##te#e# ®@ 
<< 






howe 
rm 
_ 
~ 








SPECIAL 
TKS 


wed ald scald al 





77 
=177 
=177 
=177 
HIMEM =00 
CONTROLLER 

CSR =17 


TKB 
TPS 
TPB 











i: 


FINITIONS 


YBORD STUFF FOR MOVER 













mineen 
aes 
=r 


eccceererorrs 


WORD #8 BYTE 0 


: @e te Ge Ge Set 
peng Smeg Bane Bey Baad Bey eg Gey beet fg Pmg fee Fos, 
sazecee 
3e2s23F= 













TATUS REGISTER 
TA REGISTER 
NTER STATUS REGISTER 
NTER DATA REGISTER 
MORY MASK VALUE 


HI 
Ngee AND CONTROL REGISTER 














STATUS COMMAND 
TRACK AND HEAD SELECT 
TOR HEADER 


TOR NO HEADER CHECK 
Y BIT IN STATUS REG. 


3ST 

sKEYBOARD I 

KEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 


SEQ 31 | 
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-SBTTL SPECIAL MACROS AND OPDEFS. 


3+ 
;SAVE GENERAL REGS 1 TO 5 


-MACRO SAVREG 
JSR RS ,REGSAV 
- ENDM 


$ MACRO TO FORCE AN ERROR 
“MACRO FORCERROR TAG,NOTSSR 
mst LISTALL, .NLIST 
“TF B NOTSSR 


ane MOV TSSRC(RS) RI sREAD TSSR 
: MOV FORCER, FORCER s1S FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG :BR IF YES 


eNLIST 
elIF NDF LISTALL, .LIST 
LIST 


“MACRO TO FORCE AN EXIT TO -— SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
sO TO ‘ny aera AND EXIT ON 1 ERROR SET 

FORCER 






TO FORCE OERRORS AND ITERATIONS SET FORCER TO 1. 

MACRO FORCEXIT TAG 

NLIST 

‘ice LISTALL, .NLIST 
MOV FORCER ,FORCER 1S FORCER NEGATIVE? 
BMI TAG sBR IF YES 

eNLIST 

oIIF NDF LISTALL, .LIST 

eLIST 

- END 


; MACRO TO INCREMENT ERROR COUNTS 
“MACRO NEXT.ERRNO 
“NLIST 
sizelIF NDF LISTALL, .NLIST 
ERRNO=ERRNO*1 
szgeTIF NDF LISTALL, .LIST 
“LIST 
NDM 





2@ 


SEQ 32 


—_- 


H 3 





SEQ 33 | 














czy MACRO M1200 29-MAR-83 13:43 PAGE 18-1 | 
| 
! :MACRO TO PERFORM XOR | 
1281 : 
1 .MACRO XOR A.B 
1 MOV .~(SP) | 
1 BIC B. (SP) 
1 BIC A.B 
1 BIS (SP)+,B 
.ENDM 
1 000000 EN=0 INITIALIZE ERROR NUMBER 
-SBTTL FORCER = FORCE ERROR FLAG 
1 3 
1 * THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
* TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
1 & 
1297 002144 000000 FORCER:: 0 : 
1 > = BY THE MACRO "IFERROR'’). AN ERROR NEED NOT 
: = EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
1301 
1302 


FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 


i 3 
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GLOBAL DATA SECTION 





SEQ 34 


-SBTTL GLOBAL DATA SECTION 






























‘ 
13 . 
13¢ :THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
} 08 [IN MORE THAN ONE TEST. 
1311 
1 1g [THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
1313 [SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P=TABLE. 
1315 0021 3 -WORD 0 sPRINT SWITCH 
1316 00¢1 -WORD 0 : # UNDER TEST. 
1317 0021 3 -WORD 0 ; RIFY FLAG. 
18 0081 CSRADOR: : - WORD Z ; CSR FOR CURRENT DEVICE 
132¢ os -WORD PRIO04 31 
132 021 : -WORD 0 : R OF N THIS PASS 
ie OC 3 -WORD 0 ;REMAINING ITERATION C FOR TEST 
1324 0021 F : -WORD 0 ; TED IN TEST 
1325 00217 TRECV:: -WORD 0 : CEIVED 
136 10217 BENBSW: : ~ WORD 0 : 
1358 09520 R "WORD 0 
1329 0 ERRH “WORD 0 ; 

4 4 - WORD e OW 

: 1 DC RAMDATA: : ‘Beky 16. DATA 
1332 OC RAMSIZ:: . WORD RAM _D 
1333 00¢ RCVHIADD: : - WORD ;RECEI 
1334 00¢ RCVLOADD: : - WORD ;RECEI 
1335 OC COUNT: : - WORD TEST 
1 10¢ DATA:: WORD TEST 
1337 OC TSTFLAG: : . WORD TEST 
1338 00¢ TSTPTR:: - WORD ;TSTBL 
1339 OC PRMNO: : WORD 0 sPRINT 
1340 O EXPMSG: : -BLKB 100. ; DATA 
13417 Of RECMSG: : -BLKB 100. ; DATA 
1 ¢ \ ; Ti. BFR:: -BLKB ." ; INT 
1 16 000000 FA:: - WORD ; SS OF MESSAGE BUFFER FOR ERR PRT 





a 


mm em a eT TL LTT . 


SEQ 35 


OPPOSITE FROM ABOVE 


i 
! 
i 
' 
’ 
| 
‘ 


[DATA FOR WALKING ONES 
;DATA FOR WALKING ZEROS 
NG 
NG 





ee) 
~— 
” Ww omg omg 
rv" 4 — 
“ S ze 
BG ce 
[eer ew) 
ws 7 << @ ee *e 
3 
— mt 
a 
5 S & 
a) ww 
me ef ~ 
bd “ — 
™ ws aL Fs 
doe (=) 
s * gs aa 
—” 
we OertmM srw 
” fal = = ~ OM ANNITMNOPR BOCK rer K KKM 
P| — w ~ De CUTTS Be be be Re be be ee ee fer be ee ee er 
a) wo & “oe PRO CUP FID DR. COO 6 a et at fet Bat Fad Dad and Oeeg aed rd Ded eed reat Oo B= NILE 
od _ =z « 4 Satatetatataatatataatatnntat eat atetetetetereterereretara rer ty 
oe Ww — © ku DRa band beng bong beng Gay Demy Ea Soy PAG Bey Fund rong Bong Brey Seong Foy II WIQIQIIQOYVOVOUWNMWN 
” oa < ws S - — OCO-OOOOODOOMOOMOMOMO@MO@ac<cc cece cee ee eee ete ero 
m» » § = Seees 
a -— ow ray ee 
! en aay wf wu 
s 28 << z SO ey ee ee eee ee ee ee ee 
be es WU 
0 & 2 
x 2 = = 
3 - —_- = sw ra 
eereres fiance Be 
oo 
i 
= 





~- TEST DATA TABLE 


TUSO FRONT END PRT C 





WOR OC wn - "7 
Zu Rinarunmuarrunwnnd BDOOGOSOOS TPR Sass 560 > OO OC 


ram adadadhadadadh aduamni 
SO NM CP 6 FE BF 6 CF FS EF CCPL SSK KKK EK 
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SEQ 36. 
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14 ; .SBTTL GLOBAL ENVIRONMENT STORAGE 

4 — FOR DEVICE REGISTERS 

14 30 100000 000000 OuMMY: sDUMMY DEVICE REGISTERS... 

14 tit 000000 000000 §- ? 0,0, srs “f 0,0 

00 :.2eFOR MULTI-UNIT CHECKOUT. 
14 

4 .wWORD 0 “DROPPED UNIT’ FLAG. 

1210 ae SINHIBITS CODE IN ‘CLEAN-UP’. 
1611 003062 .WORD 0 “FLAG TO SAY NO DEVICE. 

1418 -WORD 0 sSOME TEMP LOCATIONS. 

1415 -WORD 0 :XXDP+ COMM BLOCK POINTER. 
14616 “WORD 0 °1ST FREE MEMORY ADDRESS... 
ie haar op | 

é ; “WORD 0 ; 

lage <i pm : <24K OR NO KT - 
14 é 1 KTENABLE: : WORD is ' BY TEST ROUTINES TO FLAG 228k UNDER TEST 
14 1 PST32W:: “WORD *32W BLOCK ADDRESS FOR STAR 
1424 0031 SIFLAG:: “WORD ; 

1425 11 AT:: - WORD sACTUAL DATA 

14 6 1 GDDAT:: “WORD *EXPECTED DATA 

4 1 LOOPFL: ~ WORD 

14 11 CTAB:: : CONFIGURATION TABLES. 

14 1 CTABM: . WORD [CONFIG WORK. 

14 1 “WORD 

1 : “WORD 

14 ‘ia “WORD -1 sEND OF MEM TABLE. 

14 SERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 

14 : 0 = UNIT NOT TESTED 

14 : 190000 = UNIT ONLINE, NO ERRORS 

14 : 1OXXXX = UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

144 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
144 : 160001 = UNIT ROPPED. NOT IDL TART 

144 ; 14XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 

1 ERTABL .BLKW : 

148 $BB88 coco au: kf 

1209 003332 000000 SKIPT: .WORD 0 :1=SKIP SUBTEST O=NO SKIP OF SUBTEST 


hasaitmeipnentesns 


a ee ~_— 
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SEQ 37 
ND PRT C MACRO M1200 29-MAR-83 13:43 PAGE 22 








| 1449 af .SBTTL GLOBAL TEXT MESSAGES : 
14 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, | 
| 14 ; ¢ MESSAGES, AND ASCII INFORMATION THAT ARE USED IN : 
14 > MORE THAN ONE TEST. | 
ie : 
14 : 
ye > s+ 
14 “NAMES OF DEVICES SUPPORTED | 
1483 aa? DEVTYP <TU80> 
LSDVTYP:: 
00 124 125 070 -ASCIZ /TU80/ 
1463 ° 
14 s+ 
if “TEST DESCRIPTION 
146 O03 iia DESCRIPT <CZTUYAO TU8O FRONT END PRT C> 
103 132 124 ~ sASCIZ /CZTUYAO TU8O FRONT END PRT C/ 
165 £ ’ 
1470 *BIT TO ASCII CONVERSION FOR TSSR REGISTER 
lene : 
147 40 43 47 TSSRBIT:: 1$,2$.3$.4$,5$,6$,7$.8$ 
1474 Of 3609 Sossos O03stt 9$, 108,118, 128,138, 148,158, 168 
1475 Of 123 103 1$: -ASCIZ 
1476 Of 1 111 1 es: ~ASCIZ 
1477 Of 1 103 1 : ~ASCIZ 
Wa aes MS ASEH 
mes ie ARE 
i 19 111 124 gS: -ASCIZ ‘BIT 
I 1 123 122 98: -ASCI2 R 
1 DC 11 1 114 10$:  .ASCIZ ‘OFL’ 
1 dC 10 111 124 11$:  .ASCIZ ‘BITS’ 
1486 0C 1 111 124 1¢8: -ASCIZ ‘BITS’ 
1487 0C 1 111 124 13$:  .ASCIZ ‘BIT3° 
1 OC 1 111 124 14$:  .ASCIZ ‘BIT2° 
1489 OC 1 111 124 15$:  .ASCIZ ‘BIT1" 
16 rC 1 111 124 16$: -ASCIZ "BITO" 
14 ; 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
149 124 1 1 RR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
14 040 11 :  .ASCIZ / WON-EXISTANT DEVICE REGISTER/ 
16 101 040 NXRX: .ASCIZ /ZA ADDRESS: %06/ 
4 101 04 TSSX: ASCII /ZA TSBA,TSSR EXP'D: 206%A,2062N/ 
16 101 : "ASCIZ /ZA_ TSBA.TSSR REC'D: 2%06%A, 206/ 
4 116 045 FUSI: . ASCII /ZNZA 
14 0 04 125 USI:  .ASCIZ / UNEXPECTED INTERRUPT/ 
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a cus 
a 2=EWS8 
lh isc 
S = “33 
a $3 
a 8 :, 
uw 
~ 
5 
in e . 
td ' 
sS -as 
— 
=z 
ty 
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GLOBAL ERROR REPORT SECTION 


SEQ 39 














! 4 .SBTTL GLOBAL ERROR REPORT SECTION 
1 3+ | 
1 * THE GLUBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX | 
1 > CALLS THAT ARE USED IN THAN ‘ | 
+ ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. | 
7 eo 
1 __BGNMSG NXRERR sNON“EXISTANT DEVICE REGISTER. 
*ORINTX #NXRX,NODEV :NODEV = NEXM ADDRESS. 
1 746 MOV NODEV,-(SP) 
127 MOV #NXRX.-(SP) 
127 2 nov #2.-(SP) 
be TRAP  CSPNTX 
967539 G0se30 MR OPCLEX 
7 JSR PC EXTEND : PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
104423 TRAP  CS$MSG 


> THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


5727 Extevo: TST (PC)+ 
XTA: 0 * : 0 = NO EXTENSION. 

4777 177770 JSR PC ,@EXTA : APPEND EXTENSION TEXT. 

saan . 1$: cR ie : PRINT A BLANK LINE 
in 300004 »~(SP) 

SP,R 
706 000004 CSPNTX 
509 ; 








B 4 


oO 

La] 
ae 
~ 
“N< 


CONVENE WN-OS BS 


'i- 
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PRINT 1 assk CONTENTS 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 


3+ 

sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
:THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
:BY A MESSAGE PRINTING ROUTINE 


MAMA 
















1 
1 
1 
1 
1 
1 
. 
1 ‘INPUTS: 
1359 ; 
1360 ; R1 CONTENTS OF TSSR 
1368 ;SUBORDINATE ROUTINES: 
1364 ; CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
} 
1 a50F PRITSSR: 
1 64 ;SAVE GENERAL REGISTERS 
1570 005270 010104 MOV —s-R1,R4 :SAVE THE TSSR CONTENTS 
1571 #TSSRFOR ,R4 :PRINT THE CONTENTS OF TSSR 
205 10446 MOV R4,-(SP 
005274 012746 006116 MOV —« #TSSRFOR,~(SP? 
905300 012746 000002 #2,-(SP) 
00530 1 MOV SP,RO 
005306 14 TRAP = CSPNTB 
)0531¢ 000006 ADD =: #6, SP 
157 00531 MOV =—s_ R4&, RO :GET TSSR BACK FOR CHKAMB 
1573 OC 18 737 016714 JSR PC, CHKAMB SARE CONTENTS AMBIGUOUS ? 
1574 06 3410 Bcs_ —iséSS CH IF NO 
1575 005324 PRINTX #AMBISS “SHOW CONTENTS ARE AMBIGUOUS 
05324 01 746 006336 MOV #AMBTSSR,-(SP) 
905330 012746 000001 mov 2s #1, =( SP 
ii 1 MOV —s-_- SP RO 
005336 10441 TRAP —- CSPNNTX 
0534 706 000004 ADD =: #4, SP 
1576 O¢ 5$: MOV =—s_-R4 RB ;CONTENTS OF TSSR 
1327 005346 0427 001476 BIC PHTADDR! FATERR! TERCLS.R3™ no BITS’ GuEAREALE MULTIPLE BIT FIELDS 
1399 005 702 002576 MOV $ #TMPBFR,R TEMPORARY ASCII BUFFER 
1380 005360 012701 00 MOV TSSRBIT Rt ; QUIVALENT OF BITS 
1581 00536 3 10$: TST R ;REMAINING BITS TO CONVERT 
1582 005366 001413 BEQSsti‘é‘ézSSSS WHEN ALL ARE 
1583 00537¢ 41 CLC CLEAR CARRY FOR SHIFT 
1584 00! 3 ROL R3 XT BIT TO CARRY 
1585 00537 BCC 13$ NOT SET 
1386 005376 0111 MOV (R1) RO DEFINITION 
1587 005400 11 11$:  MOVB (RO)+,(R2)+ AS BUFFER 
1388 005402 00 BNE 11$ AL 
1589 0054( 000054 177777 MOV = #" , ,=1(R2) TO TERMINATE 
1590 00! 7 13$: ‘TST CRiS+ T TO NEXT DESCRIPTION 
1591 00541 7 ; BR 10$ THE REMAINING BITS 
1336 i 15$: CLRB =(R2 NATE THE LINE 
159 PRINTX #TSSDEF ,#TMPBFR THE BIT DEFINITIONS 
005490 0127 46 902576 MOV #TMPBFR,-(SP) 
MOV #TSSDEF,-(SP) 


re ee ae eee ee ee eee 
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SEQ 41 
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PRITSSR - PRINT TSSR CONTENTS | 
00 012746 000002 #2,-(2P) | 
01 SP.RO | 
10441 CSPNTX , 
062706 000006 46,SP ! 
1040 208: ;GET THE TSSR CONTENTS | 
703 177761 PACTERCLS a3 ;CLEAR ALL T | 
1630 TCOCOD CRS R3 : 
aT COASC.R [PRINT THE TERMINATION CODE 

019346 R3,-(SP 

012746 006177 pertte -(SP) 

ot 7 #2,-(SP) 
1 SP_RO 

10441 CSPNTX 

0627 000006 #6,SP 

005 1040 R4_R3 ;TSSR CONTENTS AGAIN 

05502 042703 177717 #*CFATERR,R3 ;CLEAR ALL BUT FATAL TERMINATION 

r 1401 25$ “DON'T PRINT IF ZERO 

nett 03 R 

514 R s ALINE TERMINATION CODE FOR INDEX 

155 16 006740 TSFCOD(R3) ,R3 “GET THE FATAL TERMINATION CODE 

5 #TFCASC,R3. “PRINT THE FATAL TERMINATION CODE 
3 4 + 348 240 See casc (SP) 
5 ; 7 $8002 #2. =(SP5 
2 4 Espn 
6° r¢ Hittieat 002170 a3 FATFLG sDROP THIS UNIT AFTER ERROR MESSAGE 
1 03 258: , :GET TSSR CONT 
703 176377 #*CHIADOR,R3 “CLEAR ALL BUT EXTENDED ADDRESS 
1411 “DON'T PRINT I 
WTEXASC,R3 ‘PRINT THE EXTENDED ADDRESS BITS 
i 748 136 STEXASC (SP) 
1274 Op 800S #2,-(SP5 
1 SP.RO 
10441 CSPNTX 
706 #6 SP 
704 10021 30S: #100210,R4 sCHECK FOR MEDIA ERROR 
; :BR, I Y NOT TAPE ERROR 
12 006025 002146 HEPRIS EPRTSW : Y REDIA RELETED ERROR ~ BAD TAPE’ 

of 5737 002146 31S: CHECK FOR THE SWITCH EMPTY 

mI 1 3 °BR, IF SWITCH IS NOT EMPTY 

i 1 5672 002146 FEPRTI, pRT Sw SET SWITCH TO. DEFAULT 

i 13737 002146 3108: EPRTSW, REAL SWITCHABLE MESSAGE IN PLACE 

ii 2$: T1 “PRINT THE ERROR MESSAGE | 

ii 12746 005672 PRT1,-(SP) 

7 01 #1 .-{SP) 

dC 04414 CSPNTB 

0 0056 oi97 iteee: 002146 #EPRT1EPRTSW sRESET TO NORMAL ERROR POINTER 

DC 207 PC “RETURN TO CALLER 

045 116 045 EPRTI: "YNZA teeeeCHECK CABLES BETWEEN M7454 AND TRANSPORT**2eeZS° 











D 4 













CZTUYAO TUSO F 
Se 5, CE SSS ee NS em 
L 7 5 116 045 , 
1 4 5 5 4 "ENZA *eeeeCHECK TRANSPORT *eeees' 
1838 S38 é He oe SHR Mage AAMTES cmon «on treeoet 
1 1 5 116 of: red "ENZA Extended Address Bits = 206° 
1 5 116 045 a m Fatal Termination Class Code = 2T' 
1 045 116 045 eASCIZ ° TSSR Bits Set: ZT 
16 eASCIZ ‘ZNZA TSSR Contents Are Ambiguous’ 
16 O0s420 1i6 133 — 1$,2$,3$,48,58.68.7$.8$ 
1635 124 145 ; ‘Normal Termination’ 
1 71 124 141 1 ‘Termination Condition’ 
1 213 1 165 1 "Tape Status Alert" 
16 23 : 145 14 shecaserabie Error Tape Positi 
145 143 a ss osition One Record Down’ 
1640 1 156 162 *"Recoverable Error = Tape Was Not Moved" 
1 Unrecoverable E ' 
10 106 141 164 "Fatal Controller Error’ 
1 740 006750 007 , 
1645 00675 130 0070 OL Tate cascr? ‘Internal D 
164% 007015 193 165163 28: ASCE ae ere 
163 3S: -ASCI1Z “Bus ' 
1% 1 12 145 163 4$: “ASCIZ _—- or Sanity Check Error 


SEQ 42_ 


re mm mmm meme - -——_ 


E 4 
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1° rUPRIN NT THE. ADDRESS/ CONTENTS OF COMMAND PACKET 


-SBTTL PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


[TH IS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
; THIS peat IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


: NUMBER OF WORDS IN PACKET 





SEQ 43 











HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 

R3 1S IGNORED IF THE KTENABLE FLAG IS CLEAR. 
sSAVE THE REGISTERS 

: SAVE ENO OF WORDS IN PACKET 
: ABO vE ext UNDER TEST? 


YES 
7SET HIGH ORDER ADDRESS TO 0 
COPY HI ADDRESS 










roy 01 9003 
71 003102 
71 1 





ee cee eed ed ceed ceed cee cee ed ed ee ed ceed eed ed ed eed eed oe ed ot 


tea 
= 









REPL EELEREEEE 







nad went sce) end cme wad meet ed 


WORD NUMBE 
sGET PACKET es 
sPRINT THE DAT 


femng 
= 











a 


eseeece 
o> 
Vv 








+ 















1680 OC INC ;NEXT WORD NUMBER 

1681 OC ERP SDONE ALL PACKET WORDS? 

1 ue BLT : LOOP TILL ALL DONE 

1683 OC :JUST A COUPLE NEW LINES 
uC MOV 






3S 














ES 







+ 


RE ee 
*ZNZA Packet word #201 x0" 
ener te Address = a ees 


<a 





S54 


we ah ek et 


-——— — oe _—- —-- 
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SEG 44 
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OR - PRINT EXPD, RECV AND XOR BYTE 


C 


~ 
— 
Cc 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3? 
“PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
“THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


SSSSSSSSSISESSIE 


: INPUTS: 

: R1 RECEIVED DATA 

: R2 EXPECTED DATA 

‘OUTPUT: 

RO XOR OF EXPECTED/RECEIVED DATA 


e 











SS | ee ee eee SS) 


709 OC ;SAVE THE REGISTERS 
710 OC SEXPECTED DATA 
711 OC SFORM THE EXCLUSIVE OR 
712 OC 77>.RO BYTE 
713 OC BIC 1 3SA 
714 OC BIC SSAVE LOW 
715 0 BIC =SAVE LOW 
716 OC PRINTS #XORBFOR,R2.R1,R3 ;PRINT THE MESSAGE 
it MOV =—s._ R35, = (SP) 
r MOV = R11, = (SP) 
MOV 
MOV FOR. -(SP) 
MOV 
MOV 
TRAP 
ADD 
1717 MOV ;RO_HAS XOR_ON RETURN 
1718 RTS SRETURN TO CALLER 
is 007426 045 116 045 KORBFOR: © -ASCIZ "ZNZA EXPD: ZO3ZA RECV: ZO3%A XOR: 203° 
1722 


a ee ——_—— - 


xe 
"8 


NOUN 


ee Oe ee, SS SS 
wi 


TU8O 
- PR 


FRONT END PRT 
INT EXPD, RECV AND X 


C 





te 


000012 


116 








7* 
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-SBTTL PRIXOR <- PRINT EXPD, RECV AND XOR 


‘PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE T 
S NORMALLY 











;THIS ROUT INE CALLED ONLY FOR PRINT ROUTINES. 
$ INPUTS : 
: R1 RECEIVED DATA 
; R2 EXPECTED DATA 
[OUTPUT 
: RO XOR OF EXPECTED/RECEIVED DATA 
PRIXOR:: 
SAVREG :SAVE THE REGISTERS 
MOV R2.R3 EXPEC TED DATA 
XOR R1 “FORM THE EXCLUSIVE OR 
PRINTB OXORFOR R2.R1,R3 :PRINT THE MESSAGE 
MOV R3,-(SP5 
MOV Ri 7 (SP) 
MOV R2.-(SP 
MOV -(SP) 
MOV #4 ,-(SPS 
MOV SP.RO 
TRAP CSPNTB 
ADD #12 SP 
MOV R3,R sRO HAS XOR ON RETURN 
RT PC “RETURN TO CALLER 


045 XORFOR: 


Ss 
SCIZ ‘ZNZA EXPD: ZO6ZA RECV: ZO6ZA XOR: 206° 


SEQ 45 


ome ong 


—“<_— +S LST LY ST SL Se Oe Oe ee Oe ee ee eS) mm 


c 
5 


BN 
e 


Meu 


ett 


YIPIVIIVVSSSSSFSSSSIFARIIS: 


a 


~~ 
wa 


ee ee ee eee ee ee eee ee eee Se ee 


SERRE STEELE 
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IT NUMBERS AS ASCII EQUIVALENT 


-SBTTL PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 


SEQ 46 





'i—< 
Be 
—— 
zw 
— 
oe 





+ 


sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


INPUTS: 


RO OCTAL VALUE TO CONVERT 
R1 TABLE OF POINTERS TO ASCII EQUIVALENT 


sSAVE THE REGISTERS 
sRETURN TO CALLER 


Sse 
NN 
pale 
anor 
S 
So 
~ 
= 
— 
mr 
e 
ae 
mm 
o 
wv 
to |} 





-SBTTL PRIRAM <= PRINT RAM ADDRESS 


“PRINT CONTROLLER RAM ADDRESS. 
‘THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


INPUTS: 


R4 RAM ADDRESS 


SAVE R1-R5 UNTIL NEXT RETURN 
PRINT RAM ADDRESS IN ERROR 


SSN SNS 
ee 





045 RAMFOR: .ASCIZ ‘°ZNZA CONTROLLER RAM ADDRESS = 206° 


$ 
oa 
wi 
So 
= 
wa 
_ 
_ 
oO 


~SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


;PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 





aus come ee ee | ce ee eo oe —— 


| 


SEQ 47 






sRETURN 


*ZNZA MEMORY ERROR ADDRESS = %012%05° 


sRETURN 


"ZNZA MEMORY TEST ADDRESS = %012%05° 


I 4 
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LY CALLED ONLY FROM PRINT ROUTINES. 





3 
RO.R 
Pp) . 





-($ 






TB #PRIAO 
R2, 


TB #PRITO 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


s fais 
o mm aes re Oo md 
— ze BS ten CF “us — eS 
. - Zev Ye g= ~ ge Sezedeeeseseser Ze 
seeeeseeeeee=22 “¢ 2 §5 Sh SeRREEE ef: 3 
oe we 
eo fae 2 oe 
S e zu & < S 
—~ bone = = bong oy 
mm! a > A nr “nee é 


045 
045 


002206 
08 
000010 





= Pai coll eel emit seek oe el eel Oe el ee ee cel oe ol oe ce 





C 
S 





ZTUYAO TUSO FRONT END PRT C MACRO 





1200 


mmm eee 


J 4 
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PACE <~ SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010320 





ee ee eee ee ee ee ee ee ee ee ee ee ieee eel ee S_) 


-SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
















st (FORWARD OR REVER 
* INPUT: 
: R3 R OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
BIT15 = 0 IS FORWARD 
BIT15 = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


OUTPUT: 


CARRY SET - SPACE RECORDS COMMAND OK 
CLR = SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


> IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 





SAVREG : RAL REGISTERS 
MOV AY : 
MOV . 5 
TST : 
AMI $ 
MOV : 
BR 3 
5$: BIC 1T15,R3 : 
MOV as ; 
BIS pos 3 
10$: MOV R ; 
MOV R4, TSOBCRS) ; 
15$: JSR PC WALTF : 
DELAY 
ee 0,(PC)+ 
SDLY, (PC)+ 


s o 
mages 


-6(PC) 
=4 


SEQ 48 





K 4 
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SPACE <= SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


7 177756 
1367 
ae 


SEQ 49 





~23¢PC) 
SDELAY 
15 
60$ 
TSSR(RS) RI 
#SSR Re 
6 | 
60$ 
70$ | 

: *CARRY CLEAR = ERROR 
10400 70$: MOV R4.RO “PASS PACKET ADDRESS 

PC sRETURN 
i 





sPACKET FOR SPACE COMMAND 


10316 ~BLKB 10-<.-TUV2A87> 
; COMMAND WORD 


10320 000000 80$:  .WORD 
“NUMBER OF RECORDS TO BE SPACED OVER WORD 


te se rts ee 0 sDELAY COUNTER 


-EVEN 









—S SS eS TST LT Lee ee ee eee eee 
ROSeecEeeeerrereterererey 
M—6 OONO Vw © 
—s 
fRORA 
ROasesss= 
° 3 ~ + 4 ™m 
e 8 8 
PSmamseo semen 
a ao £& eome 
e@e @e @eG@e@e Gea @ 


me a ee ee 


men eee eee 


SEQ 50 











-_ 
war 
nf ud 
Vu 
2s zs 
ref Bu 
| as we 
| % + so <2= 
z 2 $8 “3 3 $008 35 
| rt = rr =z w ss " “SS aS 
| = & - oo 13 ae oo 
5 8 we Je BsaSue? ss 
a we F 3 —— a wr >is Oe a “ 
= <7 r= wn as ie 3 Fu “< ~zs2 
2 & = wien Me? wu Se eo ESS 
es . 2 SUSSSLUS SE TSe een TSeS 
ww —2 rh es ew Se 8R FO Fe FR FO FG FR FS FS FS FO FR Fe FS SR FR FE TR TS FS TS 
a [vw ” ~aem~ <a 
i. & 8 Fs ws ee 
ai ¢ E aw k Ouwu 
ae =o ft mg ms “3 nae = 
rc} 4 (VY) o>e ond ome Bun an % < oS 
f eMw uJ Cu ll ~~ ~ a on 
« a “2 o aus 2 » aaa a Taw a 
nn = Su ew a * Q wee pe ~~ & 8 — a ~ 
7 & © #. ks Sa ee oeSuustsatSsen So 
» S$ ye Ss Bas. ae werReceeneresese F 2x 
us vw) 
s 2 .[ »aawe (Ss : 
ee of es ae: pel tte t-te ety te 
ee ert ott tet pet t= 
— eo us se 
S i Fs a 2 7 o ee oe ee a 
eng 
> -  e -  —  : $ = S w S Ss 
= 


RRM ss 
SS ° 5 
S 


HOR SOR RE BNC SULT INAS 


Ce el seth cue odd eel out gel seed eek eel eel ool sel eel eel ce see, see eee el ee oe 


SOSSSSSTSR SSR STA STTTTSS SoS SESS OSSSESSSESRS SOOO OOOO 


CO FF FF CE CE FE CT FF & FE SF CF FS SS FEE EF CF FF FF FE FP CSS Se Ee 


000010 
002716 
000000 





- WRITE CHARACTERISTICS COMMAND 
17 








CZTUYAO TU8O FRONT END PRT C 


WRTCHR 


-.-— oo ee ee ee 


mem ee eee Se 
EE es eee ee ee ee eee wee ea ee 


; 
anes 


rr EE 





z 
ea 
Ss 





© 
3 





cca wee cee ce ce ce ce ee ced eed we ed ced ed ed eed eed ed =o) Ww 


SEESR SAREE TE st 


ee ced ce cee ee cee eed eee eee eed ee cee ceed weed eed ed eed ed we eed eed ed eed oe oD 


a3 pee 
Wr=— Umew N= 


FSESEE 


“J 


&MNo 














sssssscss 


+> 


> 


os 





> 


-SBTTL REWIND 


nm 4 


- POSITION TAPE (REWIND) COMMAND 





iTS MO rion WILL REWIND THE SELECTED Meg 


: THE ROUTINE 


DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO i CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 









; CALLING SEQUENCE : 












DO A SOFT INIT 
; DO A WRITE CHARACTERISTICS 
; JSR PC REWIND 
: INPUT: 
: RS FIRST DEVICE UNIBUS ADDRESS 
*QUTPUT 
RO THE CONTENTS OF R4 IS PASSED TO RO 
REWIND 
SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
MOV #RWPACK,R4 “GET PACKET ADDR 
MOV R4.TSDB(RS) ; SEND PACKET Re Fon" 225 TO EXECUTE 
MOV # TIME 400° REEL TO REWIND 
10$: JSR PC WAITE WAIT FOR SSR TO SET 
SR IS SET 
SWAIT FOR .25 SECONDS 
#250. ,(PC)+ 
SDLY, (PC)+ 
=6(PC) 
f (PC) 
sBUMP COUNTER DOWN 
Rs ‘KEEP GOING 
“CLEAR CARRY TO SET ERROR 
208: 4,RO “PASS THE PACKET ADDRESS 
Pe RETURN 
BL 4 ~~ TUVZAR7> 
RWPACK: 
.WORD 102010 sPOSTION COMMAND (REWIND) 
“WORD 0 “NOT USED 


SEQ 51 


CZTUYAO T 


CKRAM 


—_) =D 
SO OONAW 


— 


oO 
NOAM uty 


aN 


<tyt?-tee eee 


< 


SOOO OOOO OOOO OOO OOOO OOOO OOOO Oo 
~~ 


Tus0 F 
COMPARE. RAM 


eed eed ed eed coed ee nd oe eet eed eed ae eed ed ee eed eed eed eed ed od = we 


ie 
Me 
e 
é 
\ 
é 
ie 
e 
ie 
\e 


PC 








eer io 1/5 
a | 


tee 


177976 







000027 















ra 


ISOOOOSCSoO~—< 
x FINN NNONN 


SIN = = = f= SI tS OS NIN 





000010 


N 4 
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/0 PACKET 


-SBTTL CKRAM <= COMPARE RAM TO I/0 PACKET 


“ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
ZMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


> INPUT: 
; RG ADDRESS OF THE COMMAND PACKET 
: R5 FIRST DEVICE UNIBUS ADDRESS 
*OUTPUT: 
: CARRY SET - RAM MATCHES PACKET 
; CLR = RAM DOES NOT MATCH PACKET 


ZIMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 

; DATA HELD IN RAM. 

; RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


+ SIDE EFFECTS: 











CKRAM 
sSAVE THE GENERAL REGISTERS 
#RAMDATA,R1 “ADDRESS TO SAVE THE RAM DATA 
#RMPKTBEG,R2 :BY TE ADDRESS OF FIRST RAM DATA 
R THE ERROR FLAG 
PC, CHKTSSR 
10S: PC CHKTSSR 
R2. TSDBH(RS) 
PC’ CHKTSSR 
(R5), (R1) A 
1+, (R4S+ “COMPARE TO EXPECTED 
“BRANCH IF OK 
“SET ERROR FLAG 
20$: Re ; ADDRESS OF NEXT RAM LOCATION 
R2. #RMPK TEND REACHED END YET 
1 “BRANCH TILL ALL READ 
R “WAS AN ERROR FOUND ? 
BE 30s “BRANCH IF NOT 
“CLEAR CARRY TO SHOW ERROR 
BR 50$ “AND EXIT 
308: SEC “SHOW GOOD COMPARE 
002246 50$: MOV #8. ,RAMSIZ “SETUP RAMSIZ FOR PRAMPKT ROUTINE 
RTS PC *RETURN 


SEQ 52 








ae ee ee ee ee ee ee eee ee 


ES SS, | ee eS ee ee eS 





1 
1 
1 
1 
1 
1 
1 
1 
1 


=3 
SW 


_ 
WNM=nu 


SESE 


aod wd anh ook 

“N 

~ss 
RRS 






=SCooooeoe 


ND PRT C 
READ AND DISPLAY SE 


011022 
On 

o 
177976 
000091 


224 
1102 


00C001 


LECTED RAM 


B 5 
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‘ -SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
ROUTINE TO READ THE SELECTED RAM LOCATIONS 





Se Ge Ge Ge & 
tm 






















RS FIRST DEVICE UNIBUS ADDRESS 
CONSOLE WILL ALSO BE PRINTED TO 
* IMPLICIT OUTPUT: 
; THE TABLE RAMDATA IS FILLED WITH THE 
; DATA HELD IN RAM. 
RAMER: : 
SAVREG sSAVE THE GENERAL TERS 
MOV “RESET R CE REGISTER 
MOV sADDRESS T DA 
MOV “BYTE ADDRES IRST RAM DATA 
MOV 3s UP 
10$: JSR ‘WAIT FOR 
mOVvB CR *SELECT NEXT RAM ADDRESS 
JSR CHKTSSR “WAIT F 
MOVE §_ TSBAL(R5),(R1)* :READ 
20$: ADD #1,R sADDRESS OF THE NEXT RAM LOCATION 
S0B 1 ‘NUMBER OF LOCATIONS COUNTER 
MOV RAMSIZ,R4 ‘GET THE RAM SIZE 
MOV RAMHLD *GET THE STARTING RAM ADDRESS 
ADD sCALCULATE THE END ADDRESS 
SUB 4 “CORRECT VALUE OF PRINTOUT 
PRINTX : ESS = 10 - 17, ETC. 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV sADDRESS OF WHERE RAM DATA IS 
MOV “THE SIZE OF THE RAM FIELD READ 
30S: CLR “NO EXTRA DATA LEFT OVER 
MOVB “PICK UP BYTE OF RAM DATA 
BIC GET RID OF SIGN EXTEND a 
PRINTX "910 211 111 222 377 000 123 134 ETC. 
MOV R4,-(SP) 
MOV -(SP) 
MOV #2,-(SP) 
MOV RO 








ae 
SOB sLOOP UNTIL ALL PRINTED 
: .WORD “RAM ADDR HOLDER 1ST ADDRESS 
: WORD “HOLDS R5 FOR LATER 
045 .ASCIZ ‘ZNZA Ram Address (Octal) = Z05ZA - ZO3ZN' 
040 -ASCIZ "ZA ZO3ZA ' 





c 5 
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RAM TO 1/0 CHARACTERISTICS DATA 


-SBTTL CKRAM2 = COMPARE RAM TO I/0 CHARACTERISTICS DATA 


SEQ 54 


: 
: 
28 





g 
3 


:* 


“ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
[MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


R4 ADDRESS OF THE CHARACTERISTICS DATA 
R5 FIRST DEVICE UNIBUS ADDRESS 


ee ed ee eed ed aed ed ow od = 


NOUS VIO OE NOUEWIN HO 


CARRY SET = RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


; IMPLICIT OUTPUT: 
THE TABLE ogy IS FILLED WITH THE 
DATA HELD IN 
RAMSIZ IS sere TO 8. OR 10. FOR PRAMPKT ROUTINE 


:SIDE EFFECTS: 


wn 
a 


SAVE THE GENERAL REGISTERS 
ZADDRESS TO SAVE THE RAM DATA 
SBYTE ADDR 


#RAMDATA,R1 
#RACHBEG ,R2 OF ty RAM DATA 










R 
PC, ee TsSe 
10$: 


20$: 


74 
17 ft 2738: 


OF NEXT RAM LOCATION 
NOT SET 


T ? 
LL ALL READ 
OUND ? 


PRACHEND-2 


30$ 
503 
PC 


AEWA OOBNOUE WO 


POPRIPORIAIPIPIPIPIPIPIPIRIPIPUPIPURIPUARIPIAIPOPIAIAIPIRIIAURIIRIAIROPI DIDI RIPPOPPIRIRINUPIARYD 
wed eed eed ceed ceed cee cand ceed ceed eee cee ed eed ced eee cee ed ce ced cee cee eed ee ce ee ce ceed ee ccd eed ee ced ed ed ce ce ee ed ee ce. eed eed ed eed ed ed ed ed od Cd od 
Ww 
ed ceed eed coed eed eed eed ee eed etd od etd cee eed ee eed ed eed eed eed aed 2 
a ee ee ee ee ee ee ee ee ee , ,_ S_ S _ Y) 
ed) cer cco sed meni) coe ed ced we one ed ere eee eed oe) ed ed 
= 
£orfoo 
eek ed 
oS WIP 
~ro~N ~~ 
SSRI et & eS YIN NII) 
=—O—-OoO 
SS382 88 
wnNNNN 
VEE GS 
oo 
4 
s 
ox 
uae 
o~ 
be) 
wa 
tee 
y 
” 
mr 
m 
oO 
ant 
P 4 
=4 
m 
wn 
~ 


r 
T 
TO SHOW ERROR 





a 
sO 00 


dD 5 


ND PRT C MACRO M1200 29-MAR-83 13:43 PAGE 36 
ITE CHAR. MESSAGE BUFFERS 


61 . -SBTTL CKMSG <= COMPARE WRITE CHAR. MESSAGE BUFFERS 





SROUTINE TO COMPAR 
;BUFFER. THE EXPEC 
ERROR PRINT ROUTI 


WRITE CHARACTERISTICS EXPD AND RECV 
AND RECEIVED BUFFERS ARE STORED FOR 





EA 
3 TED 
3 NES. 


RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
: R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
: R2 EXPD MESSAGE BUFFER ADDRESS 


: CARRY SET = MESSAGE BUFFERS MATCH 

: CLR -MESSAGE BUFFERS DON'T MATCH 
SIMPLICIT OUTPUT: 

EXPMSG BU 


RECMSG 
RCVHIADD 
RCVLOADD 


T TO EXPD DATA 
T TO RECV DATA 
ORDER ADDRESS OF RECV 





é 


KMSG: : 
SAVREG 
MOV 





RO,RCVHIADD 
R1 ,RCVLOAD 
KTENABLE 


>> 


> 
Shear 








~ 
m 












Dee 
“= 
2S 


SS BIASED TO PAR6 IN RO 
ADDRESS BIASED TO PAR6 


° 
aes 
m0 

Lead 

: = 

m 

z 

nm 

= 


FSSRVSENANGY 


< 


POPIPIRIPURIPURIPURIPURIARIPIPIPIP TU PURI PIAA ARIARIPIAR POPPI PIAA PURI RIAU RIAA PIANO RPP 
eed ced cd eh eed eed ee cee cet eed eed ceed ee ce ce ced ed wed we eed we ce cd ed et cd ee ed ed ed wed ed ed ed nd oe od wd) = 
NNN IO 
SSSeNOU RUN Oe Sn 
Se @& 1] 
2 
—4 
mn 
mm 
4a47w 
aaa) 
“mm 
SODD 
a ee 
— 
Guu 
$ mm 
o 
wm 
a 
= 
3 
Mm 
—” 
—n 
oS 
bes | 
aa 
Mm 
Cc 
< 


SSSesesss 


ee ceed ere) cee cen ced eed od ce cee cnc eed ee ed ed ee ed ee weed eed ced eed eed ed ed weed eed esd = 
een eed ceed cee ceed cond eed) cmd ced ceed ewe ce ce eed cee ee ese eed ee ee ed ed ee ced ed eed eed oe ed 








Sam 
- 


53 
c “82 
: 






ea 


mn 
~< 
m 
wa 






one 
— 
z 
33 


EN 
NEXT WORD ADDRESS 
7? WORDS? 


ve) 
=4 


ail Syasmnvardare-vyy 


Ww 
o— 
Saxo 


>1S EXTENDED FEATURES SET IN EXPD? 
EXTENDED FEATURES WORD? 

SANY ERRORS SEEN? 

;SET FAILURE 


“SET SUCCESS 
RETURN 


1 : 
#X2 .EXTF .XST2CRS 
508 : 


R4, #16 : 
136 


= 
32:58 
-—= ee 
“mn HM" 


-_ =~ 





ech com cd woud oe 


MEW 


mm ew eee 


E 5 
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COMPARE EXPD RECV MESSAGE BUFFERS 





-SB7TL CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 





sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 








: INPUT: 

; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
: R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
; R EXPD MESSAGE BUFFER ADDRESS 

: R NUMBER OF BYTES TO COMPARE 

“OUTPUT: 


CARRY SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON'T 


> IMPLICIT OUTPUT: 


MATCH 





DATA 
SS OF RECV 
































11 CKMSG2: 
11 “R5 UNTIL NEXT RETURN 
i 000144 ABOVE MAX ALLOWED? 
000144 
11 30 114 
11 1 
1 
1 
0 011 5$: : IGH ADDRESS 
1 01137 & : ADDRESS 
11% 10 kre : 28K? 
114 020266 : DRESS BIASED TO PAR6 IN RO 
5 01141 RO,R1 : ADDRESS BIASED TO PAR6 
1141 10$: R4 : R 
Was 2 15$ RR : 
11 opgess (R1 : 
114 (Re *EXPD 
114 25 “BR IF 
114 R5 “SET E 
114 000001 258: #1,R4 *POINT 
11 R4_R3 : DONE 
5 011 50§ “BR IF 
17 15$ :D0 NE 
114 508: RS sANY E 
114 55$ “BR IF 








F 5 


T m1 29-MAR-83 13:43 PAGE 37-1 
RECV MESSAGE EUFFERS 


SEQ 57. 
END | 
OMPARE EXPD RECV MES 





MSG2 
114 41 sSET FAILURE 
114 01 60$ Z 
1 1 3SeT SUCCESS 
1 7 PC sRETURN 





aay ee INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-° ; aad 


/ 7. “ERROR CODE REC'D = / 
/eece AFTER DOING SOFT INIT/ 
STESTS cool 


BOoee 
SSSR 
SRESN 


PRRER PSNR Rs 
geese gcse 








6 5 


UBO FRONT END PRT C MACRO M1200 29-MAR-835 13:45 PAGE 38 
COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 58 





3+ 
‘PRINT ROUTINE TO FATAL SOFT INIT FRRORS 
<INPUT: 

R1 CONTENTS OF TSSR AT ERROR 
: SIDE EFFECTS: 


EXECUTES DROP UNIT TO CEASE TESTING 





1 site BGNMSG SFIMSG 

11 004737 005264 "" JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
1 Z 737 (020152 JSR PC; CKDROP :DROP UNIT, IF ALLOWED 

11 re L10003: 

11676 104423 TRAP  CSMSG 


AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
> INPUTS: 


TSSR_ CONTENTS 
ADDRESS OF COMMAND PACKET 


PROPIRIMONIPITIAINIAINININY 
eet oad pod wat 
BNASSSSe aE ES 
Sete Oe Se Sd 
§ 
22 















4 11 PKTSSR 
117 PKTSSR:: 
14 011 737 005264 PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
15 011 127 i ‘NO. OF WORDS IN PAC 
16 117 i 7 2 PC’ PRIPKT *PRINT TENTS OF COMMAND PACKET 
17 0117 % 2716 ME SBFA,RO * ADDRES SSAGE BUFFER 
18 1 1 R1 ° ASSUME MEMORY 
319 117 7 014062 PC ,PRMESS “PRINT T AGE BUFFER ALSO 
oH L10004: 
11726 104423 CSMSG 





“+ 
SPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A GET STATUS COMMAND PACKET. 


; INPUTS: 


R1 TSSR_ CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


PORQPOPIPOPSNIMPNINPyD PoMsnsNoronor 
NOU EWN — 


aoa 


SPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR 
| 

| 

sal 









ND PRT C 


r 
: 


7 
e 004737 005264 


non 
Win 
“3S 


5 
75 
752 104423 


5 
117 
11754 
11754 737 005264 
117 8 
117 10301 
71 0117 7? 014062 
72 iB 
11 104423 


H §$ 
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PD RECV MESSAGE BUFFERS 








—_— BGNMSG PKTGETS 
"JSR BC PR .PRITSSR :PRINT THE CONTENTS OF TSSR REGISTER 
“NO. 0 S IN GET STATUS PACKET 
Fe oO PKT :PRINT THE CONTENTS OF COMMAND PACKET 





CSMSG 


3+ 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


: INPUTS: 
: R1 TSSR CONTENTS 
: R4 ADDRESS OF COMMAND PACKET 

BGNMSG SFFMSG 
SFFMSG:: 

JSR PC ,PRITSSR :PRINT CONTENTS OF TSSR REGISTER 
a ENDMSG 

" TRAP = CSMSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


[PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
3BUFFER FOR ERROR REPORTS 


> INPUTS: 


CONTENTS OF 
LOW ORDE 






: R HIGH ORDER ER R ADDRESS 


NOTE: a3" IS IGNORED FLAG IS CLEAR 
BGNMSG PKTMES 
PKTMES:: 
J PC ,PRITSSR :PRINT CONTENTS OF TSSR 
5: *LOW ORDER AD 
RS,R “HIGH ORDER ADDRE 
PC ,PRMESS “PRINT THE MESSAGE BUFFER 
L10007: 
T CSMSG 








SEQ 59 


—=e oe ~<- 


aa EL LL TT TT TT 


Se 


I 5 
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S AND TSSR 


SEG 60 





-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


:¢ 
PRINT ROUTINE TO PRINT THE CONTENTS OF | 
zTSSR AND A MEMORY TEST ADDRESS 


w 





1 
1 
1 
1 
1 
1 
1 
1 





| 
r MEMORY TEST ADDRESS 


ae O16501 0100 N 
33) 64 NT THE CONTENTS OF TSSR REGISTER 









104423 
9 
94 , .SBTTL MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
9 “PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
399 * IMPLICIT INPUTS: 
4 : 
4 : RECMSG 
4 : IGH ORDER ADDRESS 
4 4 ; Ow ORDER ADDRESS 
406 01201 ; 
1201 MSGEXP:: 
407 01201 012700 7 sASSUME NO EXT FEATURES 
é 14 ? 15422 5$: “PRINT EXPD/RECV MESSAGE BUFFERS 
1 10011: 
1 104423 TRAP CSMSG 
309 
41 


—_——_— —— 


we 
— MN 
Wi ag 


ee — 


J 5 





UYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 40 —_e 
EXP - PRINT FIFO EXP/RECV DATA 

413 ss LSBTTL FIFEXP = PRINT FIFO EXP/RECV DATA 

ct [PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

418 ; R1 - BYTE COUNT 

é S IMPLICIT INPUTS: 

: : EXPMSG = EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
235 : RECMSG ~- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
re ~ sGNMSG © FIFEXP 
2426 = sEIFINSG.RI ——:PRINT BYTES. TRANSFERRED 

1 as 
$15 

2427 :PRINT HEADER MSG 


a“ 1 


anit 





GET BYTE COUNT 
PRINT FIFO BYTES IN ERROR 


PC; PRBYTEXP 


eh een cd ed ed ee ee ee coed ome ed ee ceed eed eed ed ed) dk eed ee wd 





SMSG 
: 116 : -ASCIZ ‘ZNZA NUMBER OF BYTES TRANSFERRED = 2D2° 
5 116 5 FIF2MSG: eASCIZ ‘“ZNZA FIFO DATA BYTES IN ERROR:° 


as 
Fa 
@ 
ms 
ri 
2 


—e eS SS Eee nl 


CZTUYAO TUSO FRONT END PRT C 
MSGSTAT - PRINT T STATUS HEADER 


440 
441 
&& 
46 
64% 
445 
if 
449 ! 
230 ; 019100 012244 
i Hage SN 
1221 10046 
, 14 Hie 000001 
1 10441 
1 706 000004 
rer: 1 7 
He 8 ees 
Te 
‘ 8 12242 104425 
a Ses REE OE 
i 
12524 5 116 
12415 B48 116 
i oH il 
12641 5 116 


PS ISSN 


poo Fo SS SF SF 


012716 


-SBTTL MSGSTAT = PRINT STATUS HEADER AND MESS’: BUFFERS 


‘PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


: IMPLICIT INPUTS: 
EXPMSG 
mS 


HIGH ORDER ADDRESS 
LOW ORDER ADDRESS 





. BGNMSG MSGSTAT 
MSGSTAT:: 
MOV 
















#STATCOD,R1 sASCII ADDRESS TABLE 
10$ (R1)¢,RO sDONE ALL MSG LINES? 
oe sBR IF YES 
:PRINT STATUS BIT NAMES 
RO,-(SP) 
oa 
CSPNTX 
#4,SP 
1 :D0 ANOTHER MSG L 
208: #10.,R0 sNUMBER OF WORDS IN A READ STATUS BUFFER 
PC ,PRMSGEXP *PRINT EXPD/RECV MESSAGE BUFFERS 
110013: 
CSMSG 
1$:.ASCIZ °%NZA Tose pun’é gnals in Word #8:° 
qo: -AstIE *ZNZA PARERR<15> IEOT i IFMK <9> IRDY IRWD<2>° 
: ASCI *ENZA Inesvict IIDENT IHER <8> IONL<5> IFBY<1>° 
: ASCI A >, ahtee <10> ISPEED<7> ILDP<4> IFPT<0O>° 
eASCI Tape puss eis * Word #9:° 
ae oo DATMIS ILW<6> OUTRDY<5> INRDY<4>° 


i" -SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
[IMPLICIT INPUTS: 


HIGH ORDER ADDRESS 
LOW ORDER ADDRESS 








BGNASG MSGLOOP 


SEQ 62 


oooooooooooooooo 
esssssssssssssescc 


~ w~w~ RRS 
: ite 
% wstes 


wh ek ek we ot et et 
_ 
MUA 


si 


Soooooooeo 


4 
546 


oe 
scs 
ROY 
oss 


USO FRONT END PRT C 


012760 


000001 





ok 
wi 


ERESEEEN 


L 5 


MACRO M1200 29-MAR-83 15:43 PAGE 41-1 
PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 









sASCII ADDRESS TABLE 
sDONE ALL MSG LINES? 
sBR IF Y 


sPRINT STATUS BIT NAMES 


DO ANOTHER MSG LINE 
OF WORDS IN A READ STATUS BUFFER 
;PRINT EXPD/RECV MESSAGE BUFFERS 








RESV1<13>° 
IWRT=>1 IDENT<11> IR R <10>° 
IEDIT=>IHER pss 2 IF 
ITAD1=>IONL <05> IE 
IRWU =>IRWD <02> IF 


SEQ 63 


mr eee — = = 





a 5 
ND a C MACRO M1200 29-MAR-83 15:43 PAGE 42 


SEQ 64 








‘ .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
ZPR PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
10 : 
12 ZIMPLICIT INPUTS: 
1 ; CTED MESSAGE BUFFER 
14 ; IVED MESSAGE BUFFER 
15 ; IVED MESSAGE BUFFER HIGH ORDER ADDRESS 
319 : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
pat — 
519 13574 012700 900012 *" MOV #10. ,RO :SIZE OF WRITE SUBSYSTEM BUFFER 
5 737 (01542 JSR : PC ,PRMSGEXP “PRINT EXPD/RECV MESSAGE BUFFERS 
1 L10015: 
1 104423 TRAP  CSMSG 


P ~-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


[PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
3 IMPLICIT INPUTS: 
MEMORY ERROR HIGH ORDER ADDRESS 


omer Y ERROR LOW ORDER ADDRESS 
TED DATA 














POPURQIFIND PRORGRINIARDMNIM INI NINIPUNININININY 
NAME WN 
@e Se Ge Se Se 





4 VED DATA 
i 
; 1 7712 : RIADD sPRINT MEMORY ADDRESS IN ERROR 
1361 iy $106 MOV EX *GET EXPD DATA 
é 1 *GET RECEIVED DATA 
1 “PRINT EXPD/RECV 
544 01 
: L10016: 


104423 TRAP C$MSG 


™ 
2 















SEQ 65 | 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 43 , 
PRAMPKT - PRINT RAM AND PACKET DATA | 

547 .SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3 = ROUTINE TO DISPLAY RAM/PACKET DATA 
7 ZWHEN THE RAM DATA DOES NOT MATCH. 
$6 ‘INPUTS: 
5 : R4 POINTER TO COMMAND PACKET 
229 3 IMPLICIT INPUTS: 
36 : RAMDATA DATA AS READ FROM THE RAM 
; RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 
& : RAMSIZ SET TO 0 
136 PRAMPKT: 
1 e30 SAVREG sSAVE RI-R5S UNTIL NEXT RETURN 
13¢ 12701 002206 MOV #RAMDATA,R1 DATA FROM THE RAM 
1364 ; R T BYTE NUMBER 
13¢ 1 5$: (R1)+, (R4)+ : COMPARE EXPECTED, RECEIVED 
646 177777 7$: =1(R1) RS SGET RECV RAM DATA 
5 1 6 177777 -1(R4) -R3 3GET EXPD PACKET DATA 
7 ¥ . P XPD/RECV 
13666 177400 #177400,R3 ;LOW BYTE ONL 
136 1777 002200 -1(R1) ,RECV “GET RECEIVED RAM DATA 
1370C 177777 176 ~1(R4) .EXPD “GET EXPECTED RAM DATA 
13706 #RAMASC -R2,RECV.EXPD.RS 
13706 R3,-(SP5 
1371C 00217 EXPD,-(SP) 
1 20 CV.-(SP) 
3 1377 % (SP) 
1 4: OT 00S SP5 
1378 
13736 000014 
i 10$: sUPDATE BYTE COUNT 
Df 002246 “DEFAULT TO 
> ¢ “BR IF YES 
iF 002246 R2,RAMSIZ :DONE ALL BYTES? 
$2 020227 000010 R2,#8. “DONE DEFAULT NUMBER OF BYTES? 
766 Ol 208: S$ :BR IF 
13770 0 002246 $: RAMSIZ *SET DEFAULT RAMSIZ 
* RETURN 





RTS 
116 045 RAMASC: “ASCIZ CENEA BYTE: ZD2%A RAM: %O3ZA Packet: %03%A XOR:%03' 
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CZTUYAO TUSO FRONT END PRTC MACRO M1200 29-MAR-B3 15:43 PAGE 44 | 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER | 
| 
| 


‘+ -SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


‘THIS ROUTINE PRINTS THE CONTENTS OF 
THE? WORD MESSAGE BUFFER RETURNED BY THE 


> INPUT: 


LOW ORDER oe OF MESSAGE BUFFER 
R1 HIGH SS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


















1 
11 014 PRMESS 
12 014 SAVREG sSAVE THE REGISTERS 
13 014 10537 011022 MOV RS, RAMRSH “SAVE DEVICE REGISTER POINTER 
14 0146 1 5 MOV [SAVE LOW ORDER ADDRESS 
15 01407 003102 TST KTENABLE SADDRESS ABOVE 28K? 
16 014 1001 BNE 10$ “BR IF Y 
17 014 5001 CLR R1 SET HIGH ORDER ADDRESS TO 0 
18 014 1 10$: MOV R1,R3 : SAV ER ADDR RESS 
14 1 ROL RO °SH 15 TO C BIT 
14 101 ROL R1 “SHIFT TO HIGH ORDER FOR PRINTOUT 
4 PRINTX #PROASC.R1.R5 PRINT MESSAGE BUFFER ADDRESS 
14 MOV =(SP5 
14 MOV -(SP) 
14 MOV -(SP) 
14 MOV (SP5 
14 MOV 
14 TRAP 
14 ADD #10,SP 
4 CMP 4199977, (RS) MESA AGE BUFFER FULL OF ONES 
14 BNE 15$ SBR_IF BUFFER IS PROBABLY OKAY . 
14 PRINTX SBFN * MESSAGE BUFFER PROBABLY NOT VALID 
14 MOV #MESBEN,-(SP) 
14 MOV #1,-(SP5 
14 MOV SP,RO 
14 TRAP CSPNTX 
14 ADD #4,SP 
2625 014 15$:  PRINTX #PRIAS: ;PRINT HEADER FOR CONTENTS 
14 MOV #PRIAS<,-(SP) 
14 MOV #1,-(SP5 
14 MOV SP.RO 
14 TRAP CSPNTX : 
1 ADD #4,SP 
1 CLR R4 ; OF T 
1 MOV R5,R1 “COPY LOW ORDER 
! MOV R5,RO ‘COPY HIGH ORDER 
4 BEQ 2 “BR IF NO VE 
1 JSR PC, SETHAP ?SETUP PAR ADDRESS IN RC 
16 ~— . “GET PAR FORMAT ADDRESS ABOVE 28k 
14 PRINTX #MESHEA,(R5)+  ;=PRINT "MESSAGE BUFFER HEADER =" 





2634 


2635 


2636 


2637 


2638 


2639 





35 


PNUOR ROSSER 
a 


AIS 


~>~> 
PSS Nas 


ed ed 


~ Ulin ht 
SENNA LNUANVOCO 


PPP PLP RPE PPE PK PLP LLP LLLP RPL LSP ESE 


IMDO'. awd 


~~ 


Be Be Oe I Pe eH Ie 
ee 
=_ = 

SVuok 


RERES 


HEESET 


eed eed eed ceed ce eed ced cae ee ee ed eed eed ew eee ee cee cee ce ee ee ceed ee ed ce ce ee ee ced ed ed ed ced cd ed ced ed ed ced ed ed ee eed ed ed eed eed ce ed ed ce eed ceed ed ed ad 3 
RERE 


~& 
&* 


ere seer 
“WM 
& 


ak ef ood 
SSxXY SHSS 


eh cell neat, 
=~“ 
nT 


=—Oooo 


$ 


000001 


014540 
ui 


000004 


MACRO M1200 
OF MESSAGE BUFFER 


002134 


40$: 





-~ ~ -4 
PEEP ECRELEE EL ELEE 
Poa 4 
—4 “4 
oat Ms 


s 
bere 
2 
=4 
pa 






gs82g2 


2 
ron 
2 
pa) 
P4 





~ ~ 
§ 3828825 98823 
ae 
—~ 
a 


3 
bes 
= 
— 
mm 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
CMP 





c 6 
29-MAR-83 13:43 PAGE 44-1 


(R5)¢.,-(SP) 
#MESHEA,-(SP) 
2.2 (SPS 
CSPNTX 
#6,SP 
ADATAFL, (R85) + 
(R5)+,-(SP) 
#DATAFL, -(SP) 
2,=(SP5 

RO 













#6,SP 
@XS2CON, (R5)+ 
(R5)*,-(SP) 
axs2cOn =(SP) 
#2,~(SP5 


SP,RO 
CSPNTX 


#6 .$P 
wX$ CON. (R5)+ 
(R5)+,=-(SP) 
#XS3CON,-(SP) 
#2.5(SP) 
CSPNTX 

#6,SP 

“ TRANSTST 


:PRINT 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


:PRINT 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


“MSTATS CONTENTS 








ee - —— - 
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CZTUYAO TUSBO FRONT END PRT C MACRO M1200 29-M*R-B3 13:45 PAGE 44-2 
PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 


SEQ 68 



























MOV #8. RARSIZ LD Is 8 BYTES LONG 

3645 tt 907606 mov #20, RARKL TARTS AT 20 OCTAL (10 HEX) 
47? 01667 011020 mov #40 RANK AT 4 4 OCTAL (20 HEX) 
2645 16 011020 OV as RARHLD $ AT 60 OCTAL (30 HEX) 
5 | 014 22 MOV #16. .RAMSIZ S SIX IXTEEN BYTES LONG 

4 110 nov #1 ,RAMHLD S aT OCTAL (40 HEX) 
T 4 RETURN 

555 1484 g 116 045 : eter * SPECIAL M7454 RAM MEMORY DUMP eeeeeereee’ 
ges Sass HR RES SRR SARE Rik Hesse Gch aureus pga!" VAL 
8 014760 804511645 : SASCIZ Message Buffer Contents: 

56( 11 5 : .ASCIZ ‘ZNZA Message Buffer Header = %06° 

nf 1 ; 148 ee : ,ASCIZ ‘ZNZA bata Field L = %06° 

562 0151 5 116 Of : .ASCIZ ‘ZNZA Resi Byte Tene = %06' 

563 13 5 11 5 : -ASCIZ ‘ZNZA XSTAT A. ents = %06' 

564 01524 5 116 045 : .ASCIZ ‘ZNZA XSTAT1 Contents = %06' 

565 13 2 116 = 045 : .ASCIZ ‘ZNZA XSTAT2 Contents = %06' 

566 15354 04 116 045 : “ASCIZ "ZNZA XSTATS Contents = 206 





SEQ 69 
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SAGE BUFFERS 


CZTUYAO TUBO FRONT EXD PRT C 
PRMASGEXP - PRINT EXPD/RECV MES 





SAGE BUFFERS 


-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
RO 

EXPMSG 

RECMSG 

SAVREG 


;IMPLICIT INPUTS 


-+ 
ROUTINE TO PRIN 
PRMSGEXP: : 








Sbbecceseeeees 


oe 





FOR PRINTOUT 


ER ADDRESS 


TX 





sPRINT HEADER FOR CONTENTS 








Bt 
= 
z 
pag 
& 





™ 


4 
Bao 
sou aS faye 
Sosa SneSSSorosseee er et sss 





RECV: Z06ZA XOR: 206° 









a 
Sus 
ate 
e 
aa w 
waa oS 
[<4 be re 
s iv 3 
Ge Ge 2 He 
lay ta a 
S- «6G , a "ano 
=> us —w ae 
ce 
Sa>a>a : 
Soauvuce 
sx 6 
ws + 
on 
rtd 
<i 
Ce ®e ee e®esere & 
+ 
om 
~~ 
ae Fs 
to a. 
os ee (77) 
mh] ~ 62a ~~ 
Ge Ge ce wmnuw é 
® 6 ss Mee, 


fe 

em Ww S 

BS TS 
oseeeessotosssicasizans™ 


OWYWBeeanruade = - 


20S: 





CO ee 


SOooooooeooooo 








CZTUYAO TU8O FRONT END PRT C 
PRBYTEXP - PRINT ERROR BYTES IN 
710 
711 
71 
re 
71 
He 
9 
718 
: > 002264 
L006 1 
1s. O1S702 OODKSe 
3528 042700 177400 
5C 016340 
aC 


pee 
orn 
had 


016342 





: . ’ + . : 


een 


Foss 2sIS2 
S= PIS IIS 
S > a 
XO 
= rs 
Ss on 


eed wed eed een cad ee ceed ced coe eed orn ed odd aed ed we ced eth eh eed weed ee ee ced ee ce eed ee ed ee ceed re ee cee ed td ed ed eed ed eed ad a ed 





MACRO 1200 
EXP/REC MES 


000010 
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29-MAR-83 13:43 PAGE 46 
SAGE BUFFER 


-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 






sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
; ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


RO - NUMBER OF BYTES IN BUFFER 
IMPLICIT INPUTS: 


PMSG - EXPECTED ME 
- RECEIVED ME 





E R1-R5S_UNTIL NEXT RETURN 
OF BYTES 





















SA : 
CLR , CCUNT 
: THE CURRENT BYTE 
MOV : FER ADDRES 
MOV : FER ADDRESS 
20S: MOVB z 
BIC scl B 
MOVE *SAVE FOR ERROR REPORT 
MOVB sGET RE 
BIC “CLEAR UPPE 
MOVE :FOR ERROR 
XOR =XOR EXPD 
CMPB OO é«(R1+) +, (RZ) *EXPD = i 
BEQ 30$ “BR IF YES 
INC PRMNO ‘UPDATE ERROR COUNT 
CMP PRMNO “PRINTED 8? 
BHI 30$ “BR IF YES 
278: PRINTX R4.PRBEXP, PRBREC.R 
MOV (SP) 
MOV (SP) 
MOV 
MOV -(SP) 
MOV 
MOV 
TRAP 
ADD 
30$: 
35$: ; 
50S: 5 





sf@ 70 





CZTUYAO TUBO FRONT END PRT C 








MACRO 1200 


29-MAR-83 13:45 PAGE 46-1 


T 
PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


749 b1e500 800007 — 
ieors SHH 
G18349 980888 


~~ 
a _v~ 


> 
Wo 


SINS 
BUS ares 


1 
1 
769 01 004737 007474 
3770 Ot 
1 104423 








a 


INPUTS: 


#6,SP 
PC 


ADD 
RTS 
ASC 


sRETURN 


IZ “ZNZA BYTE #ZD2ZA EXPD: XO3ZA RECV: XO3ZA XOR: 203° 
"ASCIZ ‘“2ZNZA NUMBER OF BYTES IN ERROR = %Do' 
“WORD 0 ZEXPD 
“WORD TRECV 





PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTE 


R1 
R2 D DATA 


BGNMSG EXPREC 


PC ,PRIXOR sPRINT THE DATA 


TRAP CSMSG 


ee ee 
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RONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 47 
T EXPD/RECV BYTE DATA 


SEQ 72 


ZTUYAO TU8O 
x - PR 





-SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
+ 


‘PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 


SESEASASESEREREE 


INPUTS: 
R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 
16 BGNMSG EXPBREC 
16 EXPBREC:: 
ores 1 004737 007344 JSR PC ,PRIBXOR sPRINT THE DATA 
7. 1 ENDMSG 
1 L10020: 
16356 104423 TRAP CSMSG 


-SBTTL RAMERR = PRINT RAM AND PACKET DATA 
+ 


sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


INPUTS: 


: RG POINTER TO COMMAND PACKET 
SIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM T 


HE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 





S IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


Poe ice rrererenee 
; 





1 
1 RAMERR: : 
obi 1 004737 013630 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
16 01 ENDMSG 
1 L10021: 
1 104423 TRAP CSMSG 


— ss 


oon 


~SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


“PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
: INPUTS: 





w 


1 
1 
1 
1 
1 
1 
1 





7 
7 


14 





37 013680 


104423 


" 


104423 


1774 
1774 


oore 


i 





M1200 29-MAR-83 13:43 PAGE 47-1 







PACKET DATA 
R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 
RAMDATA ate ase READ FROM 
RAMS IZ Ae IN "PACKET 
If ast THEN DEFAULT TO 8. 
ERRHI HI T ADDRESS 


GH ORDE 
ERRLO Lou ORDER rest ADDRESS 
; IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 





RAMTADD 





PC ,PRITADD sPRINT TEST ADDRESS 
PC PRAMPKT “PRINT RAM/PACKET DATA 
CSMSG 
.SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 
“PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
: INPUTS: 
: R1 RECEIVED DATA 
; R2 EXPECTED DATA 
: RG CONTROLLER RAM ADDRESS 
BGNMSG RAMEXP 
RAMEXP: : 
BIC #°C<377>,R1 sSAVE EXPD RAM DATA BYTE 
BIC #°C<377>_R2 “SAVE EXPD RAM DATA BYTE 
JSR PC, ORIRAAY ‘PRINT THE RAM ADDRESS 
JSR PC PRIXOR “PRINT THE D 
ENDMSG 
L10023: 
TRAP  CSMSG 


~S8TTL TIMEXP = PRINT TIMER A,B AND EXP/REC 


SPRINT ROUT INE 


TO DISPLAY EXPD/RECV DATA 
; AND TIMER A,B HEADER MESSAGE 


SEQ 73 


' 
—--. aa 
——— ee ee ee eee ee —— eee 





ee eee e+ _ 
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MACRO M1200 29-MAR-83 13:43 PAGE 47-2 
EXP/REC 


PRINT HEADER 









#4,SP 
PC ,PRIXOR sPRINT THE DATA 


110024: 
CSMSG 


045 fl eASCIZ ‘ZNZA TIMER A STATUS IS IN BIT 32NZA TIMER B STATUS IS IN BIT 2° 


SEQ 74 





cee eee we ed cme ee ee ed wed ed weed ed wed eed eed eed od 





C MACRO M ait I 
ON DATA TRANSFER 


+ 
“PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
> INPUTS: 


-SBTTL 





K 6 


29-MAR-83 13:43 PAGE 48 


BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
Re ~(SP) sSAVE DATA TRANSFERRED 
#177400,R2 “GET JUST ONE BYTE 
#XFERASC,R2 
=(SP) 
#XFERASC,-(SP) 
# #2.-(SP) 
SSPNTE 
#6,SP 
(SP) +. R2 sRESTORE R2 
cer oRttese *DECODE TSSR CONTENTS 


$MSG 
eASCIZ ‘ZNZA Data Transferred = %03° 


seq 75 


re em a ee el 





L 6 





SEQ 76 
CZTUYAO TUSO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 49 
SOFINIT = SOFT INITIALIZE OF CONTROLLER 
2905 .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 











SOFT INITIALIZE OF THE CONTROLLER 
THE TSSR REGISTER. AFTER THE INIT 
R IS TESTED FOR ERRORS; ANY ERRORS 
BE TREATED AS DEVICE FATAL ERRORS. 





met 


+ 


hb 


R5 ADDRESS OF FIRST REGISTER 


RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 

CLEAR IF FATAL ERROR 
;CALLING SEQUENCE: 


MOV sapere ys .8° 








931 JSR PC, SOFIN 

; acs CONTI 

ERRDF sREPORT FATAL ERROR 

n 5 @ 

937 O16 SOFINIT:: 

38 O16 SAVREG : SAVE THE REGISTERS 

939 Oi¢ fi MOV #0, TSSR(RS) : DO THE NIT. 

1940 016 JSR PC WAI * WAIT FOR SSR 

1941 O1¢ MOV TSER(RS) RO “GET THE TSSR REGISTER 

1942 O16 MOV R4 *TSSR CONTENTS 

1943 O16 176377 BIC #*C<HIADDR!OFL>,R4 

944 O1¢ 7 81S #SSRINBA,R4 3R4 HAS EXPECTED CONTENTS 
1945 O16 CMP R4,RO “ONLY EXPECTED BITS SET ? 
1946 O1¢ 4 BEOQ 5$ *BRANCH IF OKAY 

47 O16 4 CLC “CLEAR THE CARRY FOR ERROR 
1948 016 01 BR 10$ *GO TO EXIT 

49 O16 361 5$: SEC “SET THE CARRY BIT 

50 O1¢ 7 10$: RTs PC “RETURN TO CALLER 





oe + 







" 6 


SEQ 77° 
MACRO M1200 29-MAR-83 13:43 PAGE 50 . | 
GUITY 


-SBTTL CHKAMB = CHECK TSSR FOR AMBIGUITY 


;* 
°THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
“FOR AMBIGUITY 


ee _-« - 


: RO CONTENTS OF TSSR 


RO CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


oT: 
Se Se Ge Se Ge Se & 
S 
> 2) 
< 



















sSAVE THE GENERAL REGISTERS 
RO.R4 “CONTENTS OF TSSR 
#SC,RO “IS BIT 15 SET ? 


BRANCH IF YES 
#*C<NBA!OFL!SSR!HIADDR>,RO E wad OTHER BITS SET ? 






100060 
174077 


SO wlS 

Sosnseses 
egeress 
— mMmawMm— 


=*° 


000200 5$: ¢ SR,RO 





Ne 
54 
2 
a 


10 Ov 
, 
ms al 
eeeeh cme weed ceed ered een eed ee ee oe) aed eed ced ed ed wed oe ed owed ee ed ed od = 


ty: 000040 BIT T5,RO <1§ FATAL E I 

298 414 BEQ & $ T 

+: 704 177761 BIC #°CTERCLS,RG L BUT TERMINATION CODE 

398 7 000016 CMP —sséRG #16 : BITS MUST GE SET 

986 007 BNE 408 : NOT S 

98 41 BR 4 : : ARE SET 

OBE 700 000040 10$: BIT 'T5,R0 : ERROR BIT SET ? 

598 4 BEQ0Os«é«G S$ : BIT IS SET WITH SSR 

90 700 000006 BIT #9112!B1T1 .RO : A FUNCTION REJECT 

-: go? BNE 45$ : SSR IS OK 

992 4 40$: CLC ‘AMBIGUOUS CONTENTS 

> 01 BR 50$ 

3S 261 45$: SEC sSHOW SUCCESS - NO AMBIGUITY 
000207 50$: RTS PC “RETURN TO CALLER 





N 6 


SEQ 78 
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ENAINT DSBINT - ENABLE/DISABLE INTERRUPTS 
-SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 


7 AULT DISPLAY INTERRUPT HANDLERS. 
; IF DISPLAY a Aithiee. ABORT PASS. 





Y TIME-OUT, REPORT DEV F 
; OTHERWISE, SAVE DPU REGISTERS AND DI 


: BIT DEFINITIONS FOR ““INTMASK*’ AND ““INTFLAG'’ BYTES: 


900200 , IOKCKIN=B117 ; DON'T CHECK FOR BAD INTERRUPTS =~ TEST WILL. 
1 10KSTP=B1T0 ; EXPECT “'STOP’’ INTERRUPT. 







¢ INTERRUPT MASK . sevs EXPECTING INTERRUPTS 
| INTERRUPT FLAG -- i ve GOT ONE (IF POSITIVE) 





0 
1 017014 000 


C i 017015 000 INTFLAG: _BYT 
1015 SAVED INTERRUPT VECTOR: 
1016 017016 000000 INTVEC: OR 

C 8 017020 000000 INTCPC: .WORD 0 

¢ 





5 ; SUBROUTINE TO ENABLE INTERRUPTS: 
021 017 1 ENAINT: MOV —- RO, ~ (SP) 0 
¢ 17 1 ee IVEC,RO *GET POINTER TO VECTORS 
023 01 1 #INTR, (RO) + “SET UP INTERRUPT VECTOR 
g 7 #PRIO7, (RO)+ 
(SP)+,RO sRESTORE RO 
6 f 1 (SP) .<(S 
17 1 000000 0000° #0,2¢SP) sSET CPU TO LEVEL 0 





SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
17 54 11646 BSeINTS MOV (SP) .-(SP) 
1 1 000340 000002 mov #PRIO7,2(SP) 





8 7 
SEG al 
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INTR = INTERRUPT HANDLERS 
sti .SBTTL INTR = INTERRUPT HANDLERS 
. 1 ? — BGNSRV INTR SDEFINE INTERRUPT ENTRY 
17 012737 1 002172 "MOV #1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
1 105037 017015 CLRB —sINTFLAG *CLEAR FLAG TO SAY WE GOT INTERRUPT 
171 , 1 ; 1 017014 ITB #IOKSTP, INTMASK Z EXPECTING STOP INTERRUPT? 
g 17110 1 3093 000001 017015 BIS8 $$ #IOKSTP,INTFLAG :NO. SET THE ERROR FLAG. 
5 eal sSAVE REGISTERS, MSG BUFFER, ETC. 
17116 é ENDSRV 
1711 L10026: 
17116 000002 RTI 


ae 

















a TU8O ee END PR 



















17120 

171 age 

fa. 746 010000 
171 000001 
171 

14. 002116 
4 177772 
Fa 177756 
171 cies 
171 

171 

171 000001 
171 

1? 002116 
1? 05367 177772 
et 005367 177756 
17 i 

: D0 24 

1 0006 01 

12e8 988 

1 n0C § 


- WAIT FOR SUBSYS STEM READ 


cf 
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.SBTTL WAITF = WAIT FOR SUBSYSTEM READY 
> SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 












: INPUTS: 
: RS ADDRESS OF FIRST DEVICE REGISTER 
:OUTPUTS: 
; RO CONTENTS OF LAST TSSR READ 
; CARRY SET - READY 81 
: CLR = TIMEOUT WAITING FOR READY 
WAITF one : DO A SUPVSR BREAK FIRST. 
#10000,-(SP) BIG, MSEC TIMER 
1 “DELAY 100US 
#1, (PC)+ 
SDLY,(PC)+ 
-6(PC) 
-2 Pc) 
2$: TSSR(RS) .RO sREAD THE TSSR REGISTER 
“TEST FOR READY BIT SET 
3$ : EXIT ON STOP FLAG. 
1 > WAIT 100 USEC 
#1, (PC)+ 
SDLY,(PC)+ 
=6(PC) 
~2g¢PC) 
DEC (SP) sREDUCE DELAY COUNT 
BNE 2$ “RETRY UNTIL. TIMER EXPIRES 
CLC : € = 0, CONTROLLER STILL RUNNING... 
BR 4$ $02 OR, HUNG UP AFTER 300 MSEC. 
3$: SEC C = ONTROLLER IS STOPPED. 
i$: DEC (sP)+ ‘ aesToRE SPACK WITHOUT CHANGING CARRY BIT 


d 7 
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SEQ 81 
FRONT E TC 
CHKTSSR =~ CHECK TSSR FOR READY 
-SBTTL CHKTSSR - CHECK TSSR FOR READY 
:+ 


‘THIS ROUTINE WAITS FOR READY IN THE TSSR 
SAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 







* INPUT: 
: RS ADDRESS OF CSR REGISTERS 
“OUTPUT: 
: RO CONTENTS OF TSSR 
: CARRY SET y 
‘ CLR = NOT READY AMBIGUOUS, OR SC SET 
17 CHKTSSR: 
17 017120 JSR PC .WAITE 
17 BCC 
1 016714 JSR PC, CHKAMB 
17 Bcc 10$ 
1 100000 BIT #SC.RO CONDITION SET? 
17 BEO 15$ 
i 074000 BIT #<SCE BIE! R ANY ERROR BITS SET? 
1 10$: CLC SET FAILURE 
7 BR 20$ : 
15$: SEC °SET SUCCESS 
17 20$: ARTs PC SRETURN TO CALLER 





| mm ——— eee 


E 7 
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STENT MEMORY 





SES 82 


Hr} -SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 

-¢+ 
18 ; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
19 


ON RETURN, IF “‘C*’ = 1, (R1) = NEXM ADDRESS. 
; “C’° = 0, ALL ADDRESSES OK. 






Se Se Se Be Se Ge Oe Se & 
> 
r 
oe 


sTEST “C’’ AND PROCEED. 





§ 017274 012737 0173 KNXM: #2$,084 : SET BUSERR VECTOR. 
4 ; ie 800200 000006 #PRIO4 286 
1731 11 1$: ES). 
ONTINUE AT 2$. 
17314 0201 3 R1,R2 INUE HERE. 
1731 4 (NO NEXM'S). 
1 701 000002 #21 =n 
1 772 BR 1 CONTINUE. 
1 03 2$ R :GOT ONE, SET FLAG... 
IRE 210% ours Hs.csm 
:...AND DISMISS INTERRUPT... 
3$: a :..eAND GIVE BACK THE VECTOR. 
1 12700 000004 #4.RO 
4 cstvec 
TST R sDID WE CATCH ONE ?? 
1 1401 +6 “NO, "'C’' = 0, SKIP NEXT. 
1 361 SEC “YES, “C’' = 1, (R1) = NEXM ADDR. 
17 7 RTS PC 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 


+ 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH “'C’’ SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET SY “BEGIN. TEST’* MACRO. 


CALL: LOOPTO ARG 


i 






a ee ee ee ee ee ee eee ee ee ee ee Se ee eee eee SS 


PREP Pu 
De SS SSVSUFUNSSENOUPU eos 


17 3 STLOOP: : 

4 002136 TST NOITS : ITERATIONS INHIBITED? 

1 BNE 1$ : VES. 

1 002152 TST ave : NO. 

1 BMI 1$ sLOOPS DISALLOWED IN QUICK PASS. 
: 002164 ae * ened : BUMP LOOP COUNTER. 

: 1$: at 35 sLOOP DISALLOWED, OR DONE. 

174 $: SEC sLOOP ENABLED. 

174 $: RTS PC 





ee eS EE TT ee 


— er ee ee ee ee -_ 


, # 





SEQ 83 





[SIDE EFFECTS: 


INTERRUPT LEVEL is yeas TO LEVEL OF 
THE DEVICE UNDER TEST 






SPELLS 
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TSTLOOP = CHECK ITERATION COUNT 
7 
i ; .SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
17 : PRINT THE NUMBER AND WAME OF EACH TEST AS WE GO ALONG. 
17 ; INCREMENT “TESTK’’ TO INDICATE THE NUMBER OF TESTS 
1 ; IN THE CURRENT RUN SEQUENCE. 
176 ; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
176 * INPUT: 
178 : RO POINTER TO TEST ID ASCIZ STRING 
: : ‘OUTPUT: 
: R5 ADDRESS OF FIRST DEVICE REGISTER 
> IMPLICIT OUTPUTS: 
i ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
1 
1 
1 
1 
1 
1 








17% TSTSETUP: 
4 1 $ RO,-(SP) : SAVE alte TEST ID NESSAGE 
7% 3106 SIFLAG : ‘SOFT INIT’ FLAG 
17% 7 01 ERRK ; CLEAR LOCAL ERROR COUNTER. 
174 f 5 32 EXTA : CLEAR ERROR EXTENSION FLAG. 
174 1701 * CLEAR INTERRUPT MASK (CHECK ERROR) 
174 1 2150 s T R 
4 : WORD OFFSET. 
4 003062 : 5 HE DEVICE? 
1 14 : BR IF YES 
17444 1 3$ - BR IF NOT 
17% 0 160000 003130 #160000. ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
174 1.NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
17454 104455 cSERDF 
174 1 
17 NXR 
1? 6 NXRERR 
17 0 AR 2$ 
124 60 160001 003130 3$: BIS #160001 ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
174 2. NOINIT > DEVICE NOT IDLE 
17474 10445 seopr 
1747 
1 NOINIT 
3313 177777 003060 28: #1 DUFLG : DROP THE UNIT 
17512 013 002150 UNITN,RO 
1781 Sbaest espoDe 





; ABORT THE PASS 


mm A EE TT 


G 7 
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STSETUP = PRINT TEST 
< O17520 104446 
16 yA , , 43: 
7 O01 Ae 001000 
1 1 41 
as 173% OF 
73% 
17 + 017602 
17 127 000002 
17 ie 
335) 17 662706 on 1$: 
f > eee 
4 ha 
17008 045 123 045 TNAM eASCIZ ‘ZSZTZA Test’ 
ASC 


SEQ 84 


; GET THE OPERATOR FLAGS. 


>; PRINT THE TEST NUMBERS? 
;_BR IF NO 
GET THE ID 





MESSAGE ; 
DISPLAY THE TEST ID 


EST ta et 
Y THAT OF DEVICE 


a | STACK 


: ADDRESS OF TSV REGISTERS ON UNIBUS 


— «= Oe eee eS Oe SS eee ee Ce -l e e- -l ae ee ee 
~~ —_> - — ee ee - 


H 7 













SEQ 85 
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.SBITL TSTEND = PRINT ERRORS RECEIVED 
> AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
; IF NORMAL E REPORTING IS DISABLED (FLA:IER). 
1761 TSTEND: RFLAGS 
17 1044 1 TRAP  C$RFLA 
$ 017 03 7 020000 #IER 
17626 001412 § : BR IF “‘IER'’ NOT SET. 
7 #ESUA,ER > PRINT ERROR COUNT. 
Hees mee ora toe FESUA,~(SP 
17 a 7 $5080 ao cee) 
17 1 SP.RO 
A oe270 000006 csPuTF 
1765 Hints PC 
17 s LOCAL ERROR COUNT. 
017686 oon 191 040 RORS/ 
17 105 122 122 1 " T REACHED == DROPPING UNIT/ 


5 lal eth 


NOUR BODS 


~SBTTL INCERK = INCREMENT LOCAL ERROR COUNT 
ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
























1774 5237 017654 eaten, INC : INCREMENT LOCAL ERROR COUNT 
177 1 MOV s 
177 1 002150 : GET UNIT NUMBER, 
177 : 22. AND MAKE IT A WORD OFFSET. 
177 003130 : RO GETS ADDRESS OF ERROR TABLE ENTRY. 
177 4 (RO) : ERROR COUNT 
177, 10 007777 : ? 
177 1907 1 $ IF 
1777 1 (RO) * YES == BACK IT UP TO 7777. 
1777 1$: : 
7 PC : 
1 CKEMAX: RO.-(SP) F 
1908 002150 mOV UNETN.RO ; 
003130 ERTABL (RO) , RO : GET 
7 170000 #170000, RO * EXTRACT ERROR COUNT FIEL D 
00214 RO .GERRAAX : Is GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
37 017654 002140 RRK,LERRMAX : Is LOCAL LIMIT EXCEEDED FOR THIS TEST? 
1$: RO > GET OPERATOR FLAGS 
104421 FLA 
000040 #10U, Ro ; Is ve PPING INHIBITED? 
93 177777 003060 rg DUFLG * NO =~ DROP THE UNIT 
4, EMAXDU 
cSERDF 


EMAXDU 





Se © Ee 


—— ee ee 
ee a ee eee 


ee ee ee ee ee ee ee eer 


———_—_— ——— 


ee eee 


t # 
SEQ 86 
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NCERK = INCREMENT LOCAL ERROR COUNT 
000000 - WORD 
3275 DODU 
015700 002150 MOV 
1044 





TRAP 
DOCLN 
TRAP 





MOV 
RTS 








.SBTTL 
3* 
: CHECK FATAL COUNTER, AFTER INC 
; ERRORS AND IF OVER CALL UNIT DROP 
! EATCHK: 
mt 002150 UNITN,R1 Ree 
1 1 1 003130 #1, ERTABL(R1) S ERROR COUNTER 
1 e 7 170 FATEL R 
1 7 170 000031 FATFLG, #25. 
4 9$ 25 ERRORS 
134 104421 CSRFLA 
1 700 040000 #B1T14,R0 = sie 
4 020152 PC ,CKDROP ° 
150 207 9$: PC 





me _ 


J? 







SEO 87 
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CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
3 ‘ .SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
* CHECK IF UNIT SHOULD BE DROPPED 
010046 CKDROP: MOV RO,-(SP) 
FORCERROR 1$,NOTSSR 
RFLAGS RO 
104421 TRAP C$RFLA 
700 000040 BIT #1DU,RO 
01 
1 (SP) RO 
12737 177777 003060 e-1 ,DUFLG 
0137 002150 UNITN,RO 
04451 C$DODU 





sABORT THE PASS 
CSDCLN 


T 
Oi eSor 1$: we on 


.SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 
* SUBROUTINE - DETERMINE CONFIGURATION OF TU80 SYSTEM. 


CONFIG: 
737 016644 JSR «PC SOF INIT 
4 006207 RIS «PE 
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K 7 
SEQ 83 


ON ,K TOF ~ ENABLE/DISABLE MEMORY MANAGEMENT 


RR 


.SBTTL KTON,KTOFF 
> SUBROUTINE - ENABLE MEM MGT. 


(ah 003100 KTON: Ist KTFLG 
: ie 000001 177572 MOV #1.SRO 


1$: RTS 


ENABLE/DISABLE MEMORY MANAGEMENT 


GOT KT? 
YES. ENABLE KT11. 





; > SUBROUTINE - DISABLE MEM MGT. 
44 7 003100 KIOFF: TST KTFLG : GOT KT11? 
50 1405 BE 3; NO. 
52 40 NOP 
40 NOP 
0 56 1 000000 177572 MOV #0,.SRO : DISABLE KT. 
207 1$: RTS PC 


Ll 7? 











SEG 89 
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SETMAP = SETUP PAR6 MAPPING 

56 .SBTTL SETMAP = SETUP PAR6 MAPPING 

38 s 

oC “THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 

61 7AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 

*1S RETURNED BIASED TO PAR6. 

64 : INPUTS: 

x. : RO HIGH ORDER ADDRESS BITS 

6 R1 LOW ORDER ADDRESS BITS 

9 “OUTPUTS 

71 : OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
ze ; CARRY SET IF SUCCESS 

e3 ; CLR IF ERROR 

75 66 SETMAP: 

6 SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 

005737 003100 TST KTFLG *SYSTEM HAVE ABOVE 28k? 

78 76 001433 BEQ 10$ “BR IF 

79 010102 MOV RI -R2 *SAVE LOW ORDER BITS 

81 ASR RO sCONVERT WORD ADDRESS 10. 32W BLOCKS 
é ROR R1 “MAKE IT DOUBLE PRECISION 

$ 04 701 177 BIC #177,R1 SALINE FOR LOWER 4K BOUNDARY 
185 02 137 3100 CP RI KTFLG :HIGHER THAN EXISTING MEMORY? 
5E 10137 172354 MOV R14 IPAR6 ¢SET ip MAPPING REGISTER PAR6 
BE 50 702 16 BIC #1 , g *SETUP DISPLACEMENT IN PAGE 
385 702 140000 ADD #1 aR ‘ADD IN PAR6 BIAS 

te 1 300 MOV R2,R “RETURN IN RO 

91 0002 1 SEC 3SET SUCCESS 

x 1 BR 15$ 

: 000 41 10$: CLC °SET FAILURE 

94 07 15$: ARTS PC *RETURN 


< 
wm 


— —_—<__——_ — —— -_—_ 
cre A LS ELL LLL LLL, LE inl 





certs TU8O F 


FILLMEM 


SRDS Geter eneeseNSOnaNNScasoera=e 
Wr wm NOUSUN— DONOUNP UNOS 


TE 
~- FILL ’MEMORY 


sue 





ND PRT C 


MACRO 


WITH BACKGROUND PATTERN 


020244 
003072 
003074 


003100 
020226 
003104 


020266 
160000 


020512 
020244 


ats 


.SBTTL 
3 oe 
¢ INPUTS: 
F KTFLG 
: OUTPUTS: 
; NONE 
FILLMEM: 
SAVREG 
JSR 
V 
10$: 
30$: 
50$: 
55$: 





ee 


a 7 
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FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


FILL MEMORY WITH A BACKGROUND PATTERN 


RO = BACKGROUND PATT 
FREE 


ERN 
= FIRST LOCATION AVAILABLE TO oes 
= SET TO HIGHEST MEMORY LOCATION IF > ° 


+ SAVE R1-R5 ‘one. NEXT RETURN 













PC ,KTOFF 
R3 “COPY TEST PATTERN 
FREE,R1 GET FIRST FREE LOCATION 
FRESIZ,R2 “SIZE OF FREE SPACE BELOW 28K. 
3, (R1S+ “STORE A BACK WORD 
2 “DONE ALL MEMORY IN FREE SPACE? 
1 <BR IF NO 
KTFLG : GOT KT? 
55$ : NO. GET OUT. 
PC. KTON : YES. ENABLE KT. 
R “HIGH R ADDRESS START 
PST32UR1 °GET >28K START ADDRESS (IN 32W BLOCKS) 
:CLEAR C BIT 
R1 “CONVERT BLOCKS TO WORDS 
RO “MAKE IT DOUBLE PRECISION 
sSETUP PAR6 MAPPING REGISTER 
“STORE TEST PATTERN IN >28K ADDRESS 
“END OF PAR6 MAPPING AR 
“BR IF NO 
BACKUP | INTO O PAR6 MAPPING BEGIN 
0 RO PARG ;POINT TO NEXT 4K BLOCK >2 
#200 air LPARG *END OF MORY? 
0$ “BR IF YES 
$ “KEEP GOING ON ETC. 
BC -KTOFF > DISABLE KT. 


SEQ 90 


— ——- 2. 


[ 


ee — - —_ 
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CZTUYAO TU8O FRONT END PRT C MACRO M1200 © ene 13:43 PAGE 62 
CMPMEM ~- COMPARE MEMORY TO BACKGROUND PATTERN 


SEQ 91 






5 .SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
:" COMPARE MEMORY WITH A BACKGROUND PATTERN 
: INPUTS: 
: RO = BACKGROUND PATTERN 
: FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28k. 
OUTPUTS: 
CARRY = SET IF NO ERROR 
: CARRY = CLR IF ERROR 
; IMPLICIT OUTPUTS: 
: ERRHI = ERROR HIGH ADDRESS 
: ERRLO - ERROR LOW ADDRESS 
; EXPD § = EXPECTED DATA 
; RECV = RECEIVED DATA 
CMPMEM: 
sSAVE R1-R5 UNTIL NEXT RETURN 
01 3 0,R3 ; COPY TEST PATTERN 
020244 PC KTOFF 
7 7 FREE R1 SGET FIRST FREE LOCATION 
7 7 FRESIZ,R2 “SIZE OF FREE SPACE BELOW 28k. 
u 311 108: } ZEREE SPA CE LOCATION EQUAL TO EXPD? 
is O13? 0022 R1,ERRLO SAVE ADDRESS_IN ERROR 
306 037 2 ERRHI NO HIGH ADDRES 
306 : 4 176 * R3,EXPD “SAVE EXPD FOR ERROR REPORT 
8 137 0022 RI) RECV ;SAVE RECV FOR ERROR REPORT 
0¢ 7 15$: (R1)+ “POINT TO NEXT ADDRESS 
is R2 :DONE ALL MEMORY IN FREE SPACE? 
0¢ 10$ “BR IF NO 
4g 001472 Ss : NO. GET OUT 
D¢ 26 020226 PC .KTON > YES. ENABLE KT. 
dé RO “HIGH ORDER ADDRESS START 
é 1 003104 PST32u,Rt “GET >28K START ADDRESS (IN 32W BLOCKS) 
_— R1 ; CONVERT BLOCKS TO WORDS 
RO “MAKE IT DOUBLE PRECISION 
000177 #177,R1 SALINE 4K BOUNDARY 
RO,-(SP) “SAVE HIGH ORDER 
1 R1,-(SP) > SAVE Low ORDER 
020266 PC; SETMAP SET 6 REGISTER 
: COPY ADDRESS BIASED TO PAR 
(SP)+,R1 “RESTORE LOW ORDER IN NON PAR6 FORMAT 
(SP)+.RO ‘ABOVE HIGH ORDER IN NON PAR6 FORMAT 
30S: R Crd) : ABOV 8k LOCATION EQUAL EXPD? 
f ; 002202 RO,ERRHI . * SAVE HIGH ORDER IN ERROR 





a 


B 8 
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ZTUYAO TUSO FRONT END PRT C MACRO M1200 
° MORY TO BACKGROUND PATTE 


C 
CMPMEM 





COMPARE RN 
R1,ERRLO 
$04 ts 
(R4) ,RECV 
it 
000002 32$: #2,R1 
8885 ett 
3 R4 #160000 
1 ¥ RS 
1 000 060200 172354 /aaK IPARG 
172354 003100 IPAR6 ,KTFLG 
13 1008 020244 50$: SR PC ,KTOFF 
13 1 BR 608 
18 1 020244 55$: JSR PC ,KTOFF 
519 621 SEC 
520 1 60$: ARTS PC 















INTO PAR6 MAPPING BEGIN 

NT TO NEXT 4K BLOCK >28K. 
MEMORY ? 

F MEMORY MAPPING 

URE 


om 


weed ond ovh anl ob ROOOOOR 


ne hike 
RODRAON 


000012 


N= 


Ww 





a elle eee 


c 8 
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~SBTTL REGSAV = SAVE R1-R5 ON STACK 


‘ROUTINE TO 
; SAVE Ri THROUGH RS ON THE STACK 


CALLING SEQUENCE : 


: JSR RS ,REGSAV 


:THIS IS A COOROUTINE oe TRANSFER CONTROL BACK TO 
STHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
REGISTERS. RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


ZTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
; CALLED VIA A JSR PC INSTRUCTION 





REGSAV: 
BREAK :LOOK FOR CNTL C 
TRAP K 
MOV R4,-(SP) 
MOV R3,-(SP) 
MOV R2,-(SP) 
MOV 1.~(SP) 
MOV ~=(SP) 
MOV 10. (SP) ,R5 
JSR acsPs+ 
MOV P)+,R1 
MOV P)+, 
MOV (SP)+,R 
MOV SP)+,R4 
MOV (SP)+, °RS 
BREAK :LOOK FOR CNTL C 
TRAP  C$BRK 
RTS PC 


SEQ 93 
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GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
1 : .SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR — 
| SROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
° INPUTS: 
: NONE . 
“OUTPUTS: 
: RO OCTAL NUMBER FROM THE OPERATOR 
*CALLING SEQUENCE: 
; JSR PC.GETPAT 
107 GETPAT 
107 SAVE THE Ge GENERAL REGISTERS 
11 1$: DATASC /PATDAT.0,877.0 
1102 104443 RAP 
11 BR 
11 11 .WORD PATDAT 
1] “WORD TSCODE 
He : 7 “WORD oy 
111 “WORD TSLOLIM 
11 “WORD TSHILIM 
i1 10000$: 
3583 0211 BNCOMPLET 1$ sRETRY IF ERROR 
11 103 ? BCC 1 
11 1 021132 MOV PATDAT,RO :DATA PATTERN FROM OPERATOR 
11 2 RTS PC “RETURN TO CALLER 


3+ 
sLOCAL DATA AREA 


000000 PATDAT: 0 TEMPORARY STORAGE FOR DATA 
105 116 124 DATASC: “ASEI? ‘ENTER DATA PATTERN’ 





om eae eee —-< 


SEQ 94 





oo 

° 
ss rr 
=23N 


—~ 
aS 


e=== 
—_ 
~ 


~~ 
Ae 


: =) 
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z 
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5 
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-SBTTL GETSEL <= ISSUE MENU AND GET OPERATOR RESPONSE 


:¢ 
; ROUT INE TO ISSUE A MENU AND GET 
; THE —_—* RESPONSE . 


ADDRESS OF ASCIZ STRING OF MENU 


























‘ial MAXIMUM ALLOWABLE OPERATOR RESPONSE 
z RO NUMBER OF THE OPERATOR'S SELECTION 
GETSEL:: 
:SAVE GENERAL REGISTERS 
ROR ‘SAVE THE MENU ADDRESS 
1$: R2,R “START OF MENU STR 
2$: (RS) 3END OF ASCII ? 
4 H IF ALL LINES DISPLAYED 
#SELASC (R R3)¢ “DISPLAY THE MENU 
suit SSP) 
SP,RO 
CSPNTF 
#6,SP 
2$ 
3$: Cami NASC ,MENRES,D,-1,0,-1,NO 
RENE 
NASE 
TpLouin 
10001$: 
1$ sRETRY IF ERROR 
NRES,RO sGET THE OPERATOR'S REPLY 
Rl ; COMPARE TO MAXIMUM ALLOWED 


#MENERR “DISPLAY ERROR MESSAGE 
#MENERR, (SP) 

#1,-(SP 
CSPNTF 
#4 ,SP 
1$ 


j 






sRETR 
5$: RTS a RETURN TO CALLER 

MEF ERK 'ENZA eee Menu Selection Too Large **' 
SELASC: .A *ZNZT° 


MENS SE: "Enter Menu Selection: ° 
MENRES: WORD 0 











ee ee 


SEQ 95 





—E 





TU8O 
~ CHE 


PUN 


mew mend cod we wed ed ee et ts) ee cee nd we et 


F 
CHEC 





RONT END 
K MANUAL 


C 


PRT 
INTERVENT 


MACRO 
10N LE 


a 


F 8 
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GALITY 


~SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


Se Se Ge 
oo 


;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


> INPUT: 

: NONE . 

“OUTPUT: 

: CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
: 1 MANUAL INTERVENTION IS OK 

*SIDE EFFECTS: 

; A MESSAGE IS DISPLAYED WARNING THAT TEST IS 

; NOT SE XECUTED IF MANUAL INTERVENTION IS NOT 


CHKMAN 





sSAVE THE REGISTERS 
sSEE IF MANUAL INTERVENTION OK 


sBRANCH IF ALLOWED 
sPRINT THE WARNING MESSAGE 





sCLEAR CARRY FOR ERROR 
;RETURN 


NOMAN: .ASCIZ ‘ZNZA ***¢ Manual Intervention not Allowed - Test Aborted ***’ 
en 


SEQ 96 








‘ 


a ee ee ee ee ee ee Se 












TiC SPACE 


MACRO M1 


eee eee - —— — 


SEQ 97 
200 29-MAR-83 15:45 PAGE 67 


-SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
NVIRN: MEMORY RO 
TRAP C 


(Ties Ge es 









mov E : GET 1ST FREE ADDRESS... 
Ov RESIZ y..eAND WORD COUNT. 
MOV RD : GET NUMBER OF UNITS 

10$: SUB 12 : TAKE AWAY 7 WORDS PER UNIT 
BOY sGET FIRST FREE ADDRESS 
ADD FRESIZ,RO :POINT TO LAST FREE ADDRESS 
MOV * FREEHI *STORE LAST FREE ADDRESS 
RTS PC RETURN 


ES EE ee 


A —_—- 
supéees — = — - = GE LL LL LL OL LN 













MEMORY MANAGEMENT REGISTERS 





1775 TST 
NOP 

002126 003100 MOV 
1 003100 BIC 
MOV 

CLR 

172340 MOV 
077406 177740 1$: MOV 
MOV 

ADD 





= 











BNE 
177600 MOV 

BR 

12716 021744 2$: MOV 

oe: 2 RTI 
21744 010037 000004 6$: MOV 
1750 000207 9$: RTS 


1 
1 
i 177777 «177777 =«177777 


~~ 


-SBTTL KTINIT 
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ROUTINE TO INIT KT-11 


RTeLS E 
LSHIME ,#1577 


#28 SAERAVEC 


L$ me cifte 
Rd. afERRVE 


age 






1 

aah een 
o% 

#6$, (SP) 


RO, Q#ERRVEC 
PC 


“1, -1, -1, 1 









SEQ 98 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 






~Y FLAG 
AERORY {>28K) ? 
ao om vec PTR. 
(TRAP iF 


NO). 
YES. SET KT FLAG. 
oe OLD ERR VEC PTR. 
= AR DATA. 
R1 = KI REGS PTR. 


BUMP AR DATA BY ‘4k"’. 
AT ‘1/0? 


NO. 
; YES. SET KTPAR7 FOR 1/0. 





SET UP RETURN 
RTI TO NEXT LOCATION 


; RESTORE OLD ERR VEC PTR. 


sNO DEVICE PROTECTION REQUIRED. 





eee wee ee — Se ee 
































SEQ 99 
RONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 70 
.SBTTL INITIALIZE SECTION | 
3+¢ | 
[THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED | 
[AT THE BEGINNING OF EACH PASS. | 
IF “START OR “RESTART, SET QUICK=PASS FLAG AND BUS-INIT. 
“IF ‘CONTINUE’, NOTHING [S REQUIRED. 
NSERT TEMPORARY JUMP TO ODT 
12737 005672 002146 #EPRT1.EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
7 3106 SIFLAG “CLEAR ‘SOFT INIT’ FL 
5037 10 KTENABLE “CLEAR TEST ABOVE 28K FLAG 
7 002246 RAMSIZ “CLEAR RAM SIZE FOR RAMERR ROUTINE 
#EF .CONTINUE 
012700 000036 F . CONTINUE ,RO 
10444 TRAP 
tae: Say 
002150 002012 MP UNITN,LSUNIT § ;UNIT IN RANGE? 
; Is 4$ :BR IF NO. 
003060 T DUFLG *DROPPED UNIT? 
5 BM! NXTU “BR IF YES 
002150 nov UNITN,1 
1 003130 TST ERTABL(R1) 
13 1 BEQ SETU 
} 040000 003130 BIT #81114 .ERTABL (RI) s DROPPED? 
EXIT INIT :D0 NOTHING IF ‘‘CONTINUE’’. 
$90¢30 TlorD 10080 
1$: READEF py a 
012700 000035 : MOV F NEW, RO 
10444 TRAP =o 
BNCOMPLETE NXTU sTAKE NEXT UNIT IF NOT NEW PASS. 
103055 Bc T 
1 000040 
gze8 
— SEF RESTART 
012700 000037 FRESTART,RO 
4 
103034 
2s: 21ST PASS, BUS-INIT... 
BRESET “BUS RESET. 
104433 TRAP CSRESET 
5037 002162 CLR TSICNT sNUMBER OF TESTS RUN IN PASS 





em ee -- * 


| 


J 8 


SEQ 100 
RONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 70-1 . 


SS 
aa 
2 F. 





wn 








FATFLG sRESET FLAG TO ZERO “FATAL ERRORS"’ 
193 :BR, IF T FLAG 1S NOT SET 
= (NO DEBUGGER ETC.) 
340 4340,-(SP) 
146 #20$.-(SP) sRETURN TO DEBUGGER 
0.0DT 3 ;@@ENTER THE DEBUGGER 
19$: SKIPT “CLEAR THE SUBTEST ‘SKIPPER’ | 
177777 002152 #-1,0VP :...QUICK VERIFY... | 
0 15 PC ,ENVIRN SET ENVIRONMENT. | 
1 PC KTINIT * INITIALIZE KT MEMORY MANAGEMENT : 
31 #ERTABL RO | 
30S: " sCLEAR THE ERROR TABLE | 
003330 #ERTABE 
4s 
00215 31$: ave 
2 JMP PASRPT :G0 REPORT THE STATUS 
177777 002150 #1, UNITN sINIT UNIT NUMBER... 
002166 DEVCNT “CLEAR COUNT OF DEVICES RUNNING 








CSBRK 
UNI 










15 ™N :..-AND SET NEXT UNIT NUMBER. 
et 002012 UNITN,LSUNIT 
177777 003060 #-1 .DUFLG | 
:ABORT, NO MORE UNITS. 
CSDCLN 
002012 000001 LSUNIT,#1 sHOW MANY UNITS SELECTED? 
NEWPAS 3BR 
002166 SARE ANY STILL RUNNING? 
:BR IF NO 
000100 RO sSHOULD WE PRINT STATISTICS 
WPAS “BR IF NO 
CSDRPT 
NEWPAS 
10$: 
SETU: UNITN,RO *GET UNIT N P=TABLE POINTER. 
002150 UNITN,RO | 
CS$GPHRD 
:BR IF UNIT NOT AVAILABLE. | 
003060 :CLEAR ‘DROPPED’ FLAG. | 
(RO)+,R1 sGET 1ST REGISTER ADDRESS. | 
002154 R1, CSRADDR SADDRESS OF REGISTERS OF UNIT UNDER TEST | 
| 


Nm mm 







SEQ 101 
U8O FRONT END PRT C MACRO 41200 29-MAR-83 13:43 PAGE 70-2 
E SECTION 
12001 MOV (RO)+,R1 sGET VECTOR ADDRESS. 
1 (RO) ,R2 =GET INTERRUPT PRIORITY 
7 160 MOV R2,1PRI [SET INTERRUPT PRIORITY. 
1 1 MOV R1,1VEC *SET INTERRUPT VECTOR POINTER... 
12721 017066 MOV #INTR, (R1)+* >... VECTOR... 
10221 MOV 2, (Ri) =. eeAND PRIORITY. 
1$: 
: TST ave :1ST PASS ?? 
; BEQ 5$ “NO, SKIP THE PASS 1 STUFF. 
“1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
“THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
13701 002150 2 UNITN,R1 
11 003130 #BIT1S,ERTABL(R1) ;SAY DEVICE RUNNING 
00 EXTA sCLEAR ERROR EXTENSION FLAG. 
3727 2012 000001 L IT, #1 ARE WE TESTING MULTIPLE UNITS? 
*YES == GET OPERATOR FLAGS. 
10 104421 CSRFLA 
1 74 001000 SPNT,RO : SHOULD WE PRINT UNIT #? 
#PUNIT,UNITN :PRINT THE UNIT # 
1 766 15 UNITN, -(SP) 
1 1 #PUNIT,-(SP) 
1 c08 #2.-(SP) 
104 1 CSPNTF 
706 000006 ps #6,SP 
37 2 
OB 021 S4 
101 1,R2 “START OF REGISTERS 
7 #TSSR,R2 : SS OF TSSR REGISTER 
4 . 00999 PC, XNKM *TEST BOTH CONTROLLER REGISTERS... 





322 eAND L OK. 
R1 .NODEV sFLAG DEVICE AS NON-EXISTENT 
a~i -DUFLG e 


GION? 903062 oa 


DROP THIS UNIT. 





23: 
“FINALLY, SET CPU PRIORITY AND WERE DONE. 
S$: SETPRI #PRIOO *ENABLE INTERRUPTS. 
012700 000000 V #PRIO0,RO 
441 TRAP _ C$SPRI 
ENDINIT 
L10030: 
104411 TRAP C$INIT 





} 

NODEV 
Se alla sADDRESS OF FIRST REGISTER 
045 116 045 PUNIT: my /ENZNZAteee® TESTING UNIT ZD2ZA seeee/ | 
° 
— 


oO 
BS 
Cc 
< 
Fs 


8 


SSISN WNowwss 


DAO 


L 8 


@ 10 
END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 71 SEQ 102 


-SBTTL ADD AND DROP UNITS SECTIONS 


++ 
; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME 

; OR (B) RE~INSERTED IF IT HAD BEEN PREVIOUSLY Y DROPPED. 





aia BGNAU 
10001 rs RO,R1 : GET UNIT TO BE ADDED (RO) 
1 R1 MAKE IT A WORD INDEX 
052761 100000 003130 #100000, ERTABL(R1) ; SET THE "‘ACTIVE’’ BIT 
761 040000 003130 #40000 ERTABL (R1) : CLEAR THE “DROPPED'’ BIT 
i 022626 RO,-(SP) 
127 tite #2,~(SP) 
1 SP-RO 
10441 CSPNTF 
062706 000006 #6,SP 
000167 A i$ 
006026 “WORD £10031-2-. 
04 116 045 1$: -ASCIZ 72NZA UNIT 2%DZA ADDED/ 


ENDAU ; UNUSED. 


i 
| 
| 

L10031: 
104452 TRAP CSAU 


+ 
+ 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 







SUPV SR DOES THE “DROPPING. THIS IS JUST TO TELL THE MAN. 
DROPPED’ UNITS ARE RE-SELECTED ON OPERATOR ° Av OR "ADD" 
OMMAND OTHERWISE REMAIN INACTIVE. THE "DISPLAY'' C 

WILL PRINT ALL DROPPED UNITS, AND THE PE TABLES. OF THOSE 
WHICH ARE Tht L ACTIVE. 


UPON ENTRY, CONTAINS THE UNIT TO BE DROPPED. 


LS$DU: : 
012737 177777 003060 





#-1 ,DUFLG 
sf RI 


: D 
as. © 999999999 
@ eee28880806¢8 
ro. 


JSJMP 
L10032-2-. 


a 8 
| SEQ 103 
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ADD AND DROP UNITS SECTIONS | 
3308 022732 045 116 045 1$: “ASCIZ /ENZA_ UNIT ZDZA DROPPED/ | 
7 ENDDU | 
033760 L10032: 
762 104453 be: TRAP  C$DU 
it > AUTO-DROP CODE SECTION. 
91 : BGNAUTO 


LSAUTO:: 
012703 000550 MOV #360.,R3 sENOUGH TIME FOR 2400" REEL TO REWIND 
737 (017120 10S: P ;WAIT FOR SSR TO SET 
208 “LEAVE WHEN sR 1S SET 


50. MALT FOR .25 SECONDS 
000372 MOV #250. ,(PC)+ 


SESS 
Oulw Ww 


SOooocoocoooooooooooococNK[“lO 
co a 7 
= 
2 
& 
a ee - 
— 


SERRE 





002116 MOV LSDLY, (PC)+ 
177772 =6(PC) 
177756 ~23(PC) 
917 R3 :BUMP COUNTER DOWN 
718 10$ KEEP GOING 
91 020152 PC ,CKDROP ‘TRY AND DROP UNIT 
359 20S: 
921 : UNUSED. 





L10033: 
T CSAUTO 





NOu 





FRONT END PR 
REPORT CODING SECTIONS 





TC 


003060 


817190 


om ee a ee 





SEQ 104 
MACRO M1200 29-MAR-83 13:43 PAGE 72 | 
| 
-SBTTL CLEAN-UP AND REPORT CODING SECTIONS | 
;++ | 
THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS | 
> EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). | 
* USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
‘ BGNCLN 
LSCLEAN: : - 
TST DUFLG -"DROPPED'’ FLAG IS SET ON. 
BMI i$ *..AND GROSS CONTROLLER FAULT... 
:...DON'T TRY TO XCT CLEANUP CODE. 
MOV #0, TSSR(RS) :DO SOFT INIT 
in JSR PC .WAITF 
2$: ENDCLN 
L10034: 
: TRAP  C$CLEAN 


3+ 
; JHE REPORT CODING SECTION CONTAINS THE 
By unl CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 


BGNRPT 
PRINTS #DEVSUM 
MOV #DEV 





GET Pa ERROR TABLE. 


R : CLEAR 
1$: (R4) ,R2 : GET ERROR TABLE ENTRY & TEST IT. 
4s > ZERO IF UNIT NOT RUN 
#B1T14,R2 : WAS UNIT DROPPED? 
#°C7777_R : GET ERROR COUNT FIELD 
HDEVONL.R3.R2  : PRINT 
{= (SP) 
R3,-(SP) 
EVONL ,-(SP) 
#3.=(SP) 
CSPNTS 
#10.SP 
2$: Re . #160000 : WAS UNIT NON-EXISTENT? 
> BR IF NO 
HDEVNXR,R3 


R3,-(SP 
#DEVNXR,-(SP) 
#2,-(SP) 
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: ee 
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3$: 
L10035 
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TS 
TS 


CLEAN-UP AND REPORT CODING SECTIONS 
1 





000006 
160001 


7 
1012 





wore . a = IO > —_* — = . >< Tore MwsT 
yc +? +. =e 
> - + . nC -— | = pews ety . 


nr oewnmTrwn wor. 
LAe ba Net we “a 
Ocecocnoao 
PEM mmr 
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CZTU on TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 74 
RECORDS 





-SBTTL TEST 1: SPACE RECORDS 


THIS TEST YERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
OtER NO REVERSE POSITION tt > ee PROPERLY WHEN SPACING 
TA A SuBSEQueN Ba ‘s OVER TAPE MARKS 






10N READING 
VIOUS RECORD AND COMPARING THE POSITION DATA WITH 


3; THE 
; THE EXPECTED RESULT. 
THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 






















BGNTST n 
4 7 2170 CLR FATFLG CLEAR FATAL ERROR FLAG 
4 3 7 100 CLR KTFLG sHOLD OFF k 
4 12737 005764 002146 MOV #EPRT2, EPRTSW : SECONDARY ¥ ERROR MESSAGE 
4 737 020244 JSR PC kK DON'T NEED LOTS OF MEMORY 
sree Sis me eeererapi nese de 
4 12737 000002 002164 MOV Ay OOPCNT ‘PERFORM 2 ITERATIONS 
4 3 TEST 1, SUBTEST 1 
4 ; VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
4 THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
4 : THE VOLUME CHECK (VCK) FLAG IS SET. 
4 ? T25LC0P: 
4 4 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
1044 """ TRAP ~—s CSBSUB 
4041 6 31470 JSR PC 125 T25REST sSET COMMAND PACKET 
4 : 7 5 g 0260 CLR Sen *CLEAR THE RECORD COUNTER AREA 
4 7 1 JSR eC. ; iar *SET UP OTHER COMMAND PACKET 
4044 737 (031624 JSR ‘SET UP OTHER COMMAND PACKET 
4045 12737 176750 030262 MOV *SET UP LOOP COUNTER 
4 rereeenemtenncunternondecesessnsunenasiesensussneveceensncensests 
& 6 
£048 ISSUE CONTROLLER ‘‘SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR 
4 Perey ee Te eT Tee TT TTT TTT TTT OTTTTITITTTITITI TILT TLL iLL Lil. 
4 734 ap (08037 016644 Ss: JSR PC. SOF INIT :DO INITIALIZE ON CONTROLLER 
8 Setar 38 BEY Hi eabnes 
727 000250 P MOV #250, (PC)+ 
002116 SDLY, (PC)+ 
! 177772 =6(PC) 
177756 =22(PC) 








’ 9 
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.-20 
T25DLY :DEC DELAY COUNTER 
sBR. IF LOOP IS REQUIRED 
PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
TSSRC(RS) RI “CONTENTS OF TSSR REGISTER 
ERRNO, SF LERR,SFIMSG ‘FATAL ERROR TSSR WAS NOT OK 
i TRAP CSEROF 
1 .woRD 101 
1 “WORD SFIERR 
16 66 , SF IMSG 
12 030100 10$: MoV #T25PACKET,R4 : SUBROUTINE NEEDS PACKET ADDRESS 


Ss 
SRA AAAAAAAEAAAAASEREEAAAEEAAAAAAAEAAAARAAAERA CHAAKEKAAAAAKERAARE 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
SRAAEAAEAAEAAAEEEAEEEEEEEEEEEAEEAEREREEAERERERAAEREAERESEERERRARREARE 


4 004737 010332 JSR PC WRICHR sISSUE WRITE CHARACTERISTICS 
103407 BCS 14 “BR, IF C ISSUED OK 
004 7 020100 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
10001 “SAVE CONTENTS OF T 





MOV R : 

ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC boy 
- WORD 
WORD 


- oo 


WRTMSG 
-WORD SFIMSG 





= : 
~~ 
= 
_ 
= 
Oe 
eo 


407 ; 

4 7 : CHECK FOR DRIVE OFF-LINE 

4 8 4050 01 5 1 900000 14$: MOV TSSR(RS) RI sREAD THE TSSR 

é 4054 1 100 BIT L.R1 “CHECK FOR DRIVE OFF LINE 

4 4 4 BEQ :BR, IF DRIVE IS ON LINE (GOOD) 

4085 024 ERRDF ERRNO, T210FL.EXPREC : DRIVE IS OFF-LINE’ (BAD) 
4 104455 TRAP  CSERDF 
4 147 .WORD 1 

“WORD T2ICFL 

4 6344 “WORD EXPREC 
4 37 020152 JSR PC,.CKDROP sTRY AND DROP UNIT 


SERAAAAAAAAAAAAAETSAAERESAAAETARARAAARAEAAREAAAAAAERERAEREEAAEREREE 


“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


SHRARERRERRERAARERAEEEHERE CEA ERAERAEREREAERERERAERAREAEEAEREEERREE 
CHECK FOR MORE THAN 25 ERRORS 
R 


407 737 010434 15$: 
i 
rs 7 020100 CHK “INC AND 
4 ERRHRD ERRNO, T2SRWN,PKTSSR “REWIND NOT ACCEPTED 
4 
4 


1 

1 

11 TRAP CSERHRD 
11 1 - WORD 188 

1 -WORD T25RWN 
: 1 -WORD PKTSSR 
1 


JSR 






PC REWIND sCALL TAPE REWIND COMMAND 
30$ *BR, IF NO EM 
*SAVE TSSR 


PPP LPLLO PED 


SS33S23See5 


MOV RO,R1 
JSR PC .FATCH 





4100 30$: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 
41 Ittitiiiiiiiiiiiiiiitteiiiiiiii ii er 
41 . 
; zREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


cr me ee - _- - 


E 9 






































SEQ 1 
C2TUYAO MACRO M1200 29-MAR-83 13:43 PAGE 74-2 08 | 
TEST : 
41 FRR A AAA AAAS AAAS AAA A ASAE HATHA AAA AAA AAAAAHAARAAAAKAREKALAARARAREKS 
41 6124 013701 030126 T25BFR+6,R1 sPICK UP XSTO | 
41 41 1 J MOV [SET UP EXPECTED | 
41 41 000002 BIS #BiT1,R2 “SET BOT BIT IN EXPECTED 
41 41 10 CMP R1,R2 “DOES EXP = REC'D 
4110 0241 1406 BEQ *BR, IF EQUAL (OK) 
4111 02614 737 020100 JSR PC .FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
4115 0241 ERRHRD ERRNO, T25B0T,EXPREC =TAPE NOT AT BOT AFTER REWIND 
4146 1 56 TRAP CSERHRD 
61 15 . WORD 9 
41 7 “WORD T2560T 
4156 016344 “WORD EXPREC 
4116 0241 40$:  CKLOOP sLOOP IF SELECTED 
4156 1044 TRAP C$CLP1 
4117 0261 1 20 900400 MOV #256. R3 :RECORD SIZE 
4118 41 137 2 030232 MOV FREE, T25RB “STARTING WRITE BUFFER ADDRESS 
41 1 3 RERAAAAAASAAAARAAEAAAEATAETAAAAATCEARAERAAERKERAAAAARAAARERAARARARAAAEARERE 
41 ° 
41 “WRITE DATA.ACK.CVC=1 COMMAND 
461  eeteeeeeeeeeeeeeeeeteeteaeeeeeeeekeeeneneaneaaeeeeeeateneaneeereer 
41 417 737 140005 030230 MOV #t ,T25PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
4125 024 704 0 MOV aT25PK “SET UP R& WITH PACKET ADDRESS 
41 6 4 7 65$: MOV R3 T2582 °SET UP RECORD SIZE IN PACKET 
41 4 7 156654 MOV T2S5CNT -AFREE “LOAD UP RECORD COUNTER IN WRT BUFFER 
41 421 737 1 030260 ADD #1,T25CNT “GET READY FOR NEXT RECORD 
41 4 3 6 MOV R4. TSOBCRS) ; ISSUE OMMAND 
41 4 171 JSR “WAIT FOR SSR TO SET 
41 4 5 MOV TSSR(RS) RI [GET TSSR CONTENTS 
41 4 40 0 MOV #SSR R2 ‘SET UP EXPECTED 
41 424 1 CMP RRO SARE THEY EQUAL 
41 4 411 BEG 75$ “BR, IF OK 
41 4 701 000004 BIT T2,R1 “CHECK FOR TAPE STATUS ALERT 
41 4 O14 BNE : FT T (SUSPECT IS EOT) 
418 4 7 020100 JSR PC FATCHK ; HAN 25 ERROR 
at ; 
4144 0246 ERRSOFT ERRNO, WRTERR,PKTSSR : 
4 104457 
ba 
3700 
4145 024 75$:  CKLOOP sLOOP IF SELECTED 
4 4 RAP CS$CLP1 
4146 é INC R :BUMP RECORD SIZE 
4147 024 001000 CMP #512. ,R3 “END OF RECORD YET 
4148 BNE 6 “BR, IF MORE RECORDS TO WRITE 
44 é 1 BR 125$ “ENOUGH RECORDS 
rats SRAREAAAAEAERAAAAEARERE ATE REEETEEAAEREEERERERERAAEEEEAREEREREEAERES 
41 ; 
4138 “READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
41 5 ? 30 a. uaa ei EO OO Ee 
41 13701 030126 MOV T25BFR+6,R1 sQUICK CHECK S 
415 oeees Ot aroe mOV R1,R2 “SET UP EXPECTED 





020100 





010434 


020100 


PEL HLHLL ROSS 
eed eed eed aed edd ond cad oe ned ed 2 


002170 
020152 


F 9 
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000031 


BIS spety ae 


JSR 1255 
ERRDF ERRNO. T25NET .EXPREC 





5$: 
SRARAAAAAAAAAAAAAAEAS TASES ASAE ALAAAERARAAAEAAAARAAEREAAAARAARARAAARE 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


settee eeeeeeeeteaeerereeeeeeeeeangekanetenetekeneererererenereneeer 


130$: 








JSR i + CALL TAPE REWIND COMMAND 
BCS if = PROBLEM 
MOV CSAVE T 
JSR SINC AND CHECK K FOR MORE THAN 25 ERRORS 
ERRHRD PEATE uTSSA ‘REWIND NOT ACCEPTED 
CKLOOP sLOOP IF SELECTED 
RAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


CSESUB 





C2 
TE 





Y 


TUYAO 
ST 1: 
7 


: SPACE RECORDS 


ae 


4h } 


Py tt ot ot 
eld edd cond ed eet 


Coo 


yy ay a? a? aT ar pt yt >? >! >t yy 
ed ed eed ed at aed 
SSSSSSSEsosos 


PPP LPLLPLL LES 
POPRERORORPoROPononRy 
ROP) at ot 2 ot ot 2 
(PIO NOAM UIND =O 


wis 


Pw tt tat 


047 737 
£ 
4237 iE 
4 104406 


ie FRONT END PRT C 


31362 


031624 


016644 
020100 


030100 


010332 
020100 


010434 


mm we ee ee ee = — - ———— 
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3+ 
TEST 1, SUBTEST 2 


: VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
‘ RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 












BGNSUB ¢>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
v; C$BSUB 
JSR PC, Pe: TS5RTs. sSET COMMAND PACKET 
sSET UP OTHER COMMAND tog 


PC. TORT 3SET RC ACKET 


JS THER COMMAND P 
TUT TT TTT OTT TTT ETT TITTLE ELL LLL LLL LEE LLL 


; ISSUE CONTROLLER ‘‘SOFT’* INITIALIZE - CARRY BIT CLEAR IF ERROR 


< aneneeeneeneteneeneererrereeeeeeeneeeeeeeeeeeeneeeeeereeeeeecenere 

















JSR PC SOF INIT :D0 INITIALIZE ON CONTROLLER 
acs : “BR IF INIT WAS OK 
JSR »FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV R1 “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG ‘FATAL ERROR TSSR WAS NOT OK 
TRAP ¢ RDF 
WORD 


SF IERR 
WORD  SFIASG 
#T2SPACKET ,R4 INE WEEDS PACKET ADDRESS 


10S: MOV ; SUBROUT 
j teneneetenenceenceeeeteeetersenseneenesensenanasenenseneetseteets 


WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


< eeeeeenenneneneeerereeeeeeeereenenennneneneeeneneeeesaneneneeeeees 















JSR sISSUE WRITE CHARACTERISTICS 
acs 15$ :BR COMMAND 

JSR SFATCHK : CHECK FOR MORE THAN 25 ERRORS 
MOV R1 : TENTS OF TSSR 

ERRHRD ERRNO, WRIMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 





saeeeaeeerergenarereereeaeeereredeneeeneerentenenteteeteeeeeeetetet 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


« eenenecceaeenenereenteeecereneeeeenecenenereceetennneseeeeeseeeets 
J REWINO 3CALL at ee 


I 
> SAVE T 
K FOR MORE THAN 25 ERRORS 
TR 


MOV 
JSR 
ERRHRD 





PC FATCHK [INC AND CHECK 
ERRNO, T2SRWN,PKTSSR “REWIND NOT ACCEPTED 





CKLOOP sLOOP IF SELECTED 





CSCLP1 


SEQ 110 


LT ST — a 
—_——SEE ee eS — - - 


nH 9 


SEQ 111 
— PRT C MACRO M1200 29-MAR-83 13:45 PAGE 75-1 | 


n—~ 
“Cc 


{RASA AAAAAAASAAAAAAAS ASA S ASAE AEH AAAARAAAAAAKAAAAAARAAAAAAAAAAAATES 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


> 
{ERASE AAAAAAAAAAAAA SAE AAA SAAR KARA SARAH HAARARAAAARAAS HARKER EE 









13701 030126 MOV T2SBER+E Wt :PICK UP XSTO 
101 MOV R *SET UP EXPECTED 
702 000002 BIS #61T1,R2 : IT IN EXPECTED 
1 CMP R1,R2 : = REC'D 
16 BEOQ 40$ : (OK) 
020100 JSR : MORE THAN 25 ERRORS 


oer 


T 
1 -WORD EXPREC 
40$: CKLOOP sLOOP IF SELECTED 
108508 TRAP CSCLP1 
3 R OF RECORDS TO SPACE OVER 


MOV 1, T25RB ; NUMBE 
sRRARHAReTeAeeAeeeeAeeeeeeeeeeaeanedadakeaeeeeeeeneeeeeetenteneere 


“SPACE FORWARD.ACK,CVC=1 COMMAND 


- PREP LP LLP ESE Cc 

3 89 - BERESEESASSS Az 
sesessessesess 
PPLE LLL 


FY oY oy ot af at at at at at at 
wa 
SesasEEEeERESSEEC 
roReNe 
et 
fone 
— 
~ — =A 
Boa eeees 
~~ Oo 
WDB 
iat 
wher} tt 
mM ARP -& 
= a 
Pe) 
veh Rel 
& 
es] 
— 
Se @eo @e Ge Ge Ge Se Ge & 
GS 
= 
~ 
coed 
4g 
asad 
Mm 
28 


: 
PC .FATCHK 
: ERRHRD ERRNO, T25B0T,EXPREC 


000001 030232 


Nauk 


wu 
woe 
Se@ 
ca 
Po 
i 
Bh 
a 
ie 
& 
& 
a 
ae 
co 
3 
& 
& 
& 
= 
e 
® 
faa 
a 
ee 
= 
oS 
ae 
a 
@ 
pa 
ee 
LAS 
ay 
ae 
if 
& 
me 
& 
x 
* 
& 
> 
<2 
, 
Pa 
ae 
a 
Ea 
Rs 
» 
» 
. 
ie 
oo 
ca 
ae 
& 
es 
ia 
me 
Fd 
ye 
* 
&* 
ae 
& 
B 
» 
e 


140010 030230 MOV peed o T25PK sSPACE FORWARD ,ACK 
0 MOV RS ; 


li 658: 2 SET R4 WITH PA 


Ra TSDBCRS) 1S 
Pp uate : 
O96 000004 
020100 








ana) eat ack 
33 
~ 


COMMAND 
FOR SSR_TO SET 
CONTENTS 
EXPECTED 


TATUS ALERT 
T (SUSPECT IS EOT) 
HAN 25 ERRORS 


T 
AD DATA 













PC ,FATCHK 
ER 


RRHRD ERRNO, T25WDE .EXPREC 





75$: CKLOOP sLOOP IF SELECTED 
120$: 


SRARAAAEAAAARALAAARERETAATAARAEAAAAEAAATAAAARARARAAEAERAEAREREEERAEE 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 





030126 MOV T2SBER+6.R1 sQUICK CHECK FOR BOT SET 
MOV RT R UP EXPECTED 
000002 BIC #BiT1,R2 “CLEAR THE BOT BIT (xSTO) 









CAP 1,R2 T SET IN XSTO 
020100 JSR PC FATCHK MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25BNC ,EXPREC FTER SPACE FROM BCT 


i 


rman 











PEELS ELELHLL EPL 





Ge wet 


a 


re —_—_— = 


3 
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.WORD T2S5BNC 
16246 125$: JSR PC. T25R : CLEAN UP PACKET , — 
aba 030236 MOV BOS} to 8sz *SET THE CORRECT SIZE UP 


- Ceeeeeteeeeeeneateeeeceecereneeeerenanaaeeeeeenarereeteraenteerere 


7 READ DATA COMMAND IN PLACE 


< eneeeneeneneeeeneeeeeeeeecceeencceeeenecereeneeneeeeeeeeeeceeeets 
















14 030230 MOV sREAD DATA COMMAND IN PLACE 
0 MOV “READ BUFFER ADDRESS TO PACKET 
° mov *R4 = POINTER TO PACKET 
171 JSR : SR TO SET 
ma : 
BEQ : . FUNCTION REJECT 
020100 JSR : FOR MORE 5 ERRORS 
ERRHRD : T AFTER READ D DATA CMD 
1 
RDERR 
PKTSSR 
190$: sl 


CSCLP1 





ORRECT RECORD 
020100 OR MORE THAN 25 — 
Ione 
T2 
WORD EXPREC 
200$: ENDSUB 3>>>>>>>>>>>> END ee >>>>>>>>>>>> 
CSESUB 
002170 000031 CMP FATFLG.#25. 
BLT 999$ 
020152 JSR PC ,CKDROP 





SEQ 112 


—— ee Oe oe ee 


=—c 
< 
5 


PLES 
RECS 


& HPPPPHPLPLELPPPL HE 
& & WALEL ESLER 


SONAR UMD 


PPP KLKLP KES 


, ae 
&o 


Po ee oY ye 


BAFUN—S 





030100 


010332 
020700 


010434 


020100 


—— — = 


J 9 
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7+ 
TEST 1, SUBTEST 3 


VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
:OVER THE FIRST RECORD ON TAPE. 








BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
son C$BSUB 

JSR pee igeres! 3SET COMMAND PACKET 

JSR sSET UP OTHER COMMAND PACKET 


PC ,T25RT sSET UP OTHER ACKET 


JSR OMMAND P. 
j teeenenentensenneieeeeeceenecensenennenenegennensegansaenensenens 


$ ISSUE CONTROLLER ““SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR 


< eeeeeeeneneneeneneeereeeeeeereeeeeeeeeeeeeeeeeeeeererereerecerens 
JSR PC SOF INIT :b0 IRE TEA Te ON CONTROLLER 
th ;8R_IF INIT WAS OK 








PC, FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV R1 ‘CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
TRAP ROF 
“WORD SFIERR 
SF IMSG 


. WORD 
#T2SPACKET RS TINE NEEDS PACKET ADDRESS 


MOV ; SUBROU 
 Seekeeeenanenenereceecerecereeeeeeeeneenenenententenseeerenereetes 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


© RRAAKAAAAAAASASAEREAESEAEEEEASAEEAAAAAAKAAAAARAEAAERAEEREREAAAAEAEREERE 








JSR s1SSUE WRITE CHARACTERISTICS 

JSR SFATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV “SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 
WORD 
WORD 
“WORD 

25$:  CKLOOP sLOOP IF SELECTED 

TRAP CSCLP1 


FRARAAAAAEAAAAERAAEAEAAASTERERERAEERAAAAAAAAARARAAARAEARAERERAERRES 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘eeeeeeeeeeeeeeageeeseeedeeeeneteeeeeeaaerateeetetereenereeetnent 


PC REWIND ;CALL TAPE REWIND COMMAND 
NO PROBLEM 
MOV Rt SSAVE TSSR 
JSR FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO. T25RWN,PKTSSR “REWIND NOT ACCEPTED 

TRAP RHRD 
. WORD 
“WORD T2SRWN 
“WORD PKTSSR 


SEQ 115 


ese eee Oe 
7 ES SR ——— - 


saicniepiiciipsingsdle 


a - ——— . - ~ - — 


kK 9 
























SEQ 114 
CZTUVAQ TU8O FRONT ogo PRT C MACRO M1200 29-MAR-83 13:43 PAGE 76-1 : 
4380 025164 30S:  CKLOOP sLOOP IF SELECTED 
164 104406 CSCLP1 
4 {CAAA AAAAAAAAAE AAAS ASL EAAAEAAAAAAARAAAAAAAAAAAAAAAAARAAAAAAAAALEAS 
4 ; 
4 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
4 5 < eeneeseneeeecneneeeeeeeeeeeeecseneeneneceneneenceeneeneeeeeeenenee } 
4 196 13701 030126 MOV T2SBER*6, R1 PICK UP xSTO 
6 1 101 MOV *SET UP EXPECTED 
& 74 79 000002 BIS mitt na :SET BOT BIT IN EXPECTED 
4 1 CMP R2 “DOES EXP = REC'D 
4 14 BEOQ cos “BR, IF EQUAL (Ok) 
4 737 020100 JSR SINC AND CHECK FOR MORE THAN 25 ERRORS 
4 eRRHRD ERRNO. ooSeor. EXPREC *TAPE NOT AT BOT AFTER REW UIND 
10 1 TRAP ¢ RHRD 
le 17 . WORD 120 
16 016344 “WORD EXPREC 
43% 40$:  CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
<3og | targieeaeataatiemene: steering eenite ieneumicnaeian ta theta eae aah ea eal etal anneal 
4 
4 SISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
44 3B1T 15 SETS DIRECTION - O=FORWARD  1=REVERSE 
44 en hn” pe yy 
44 703 909001 #000001 *NUMBER OF RECORDS TO SPACE FORWARD 
44 7 0 Pp SPACE ; L SPACE COMMAND 
4405 3410 acs 3CHECK FOR ERROR 
44 016501 990000 TSSRCRS) RI “GET TSSR CONTENTS 
44 0 7 1 J “INC AND CHECK FOR MORE THAN 25 ERRORS 
6411 44 ERRHRD ERRNO, T25WDE,SFFMSG “SPACE FORWARD FAILED 
26 0001 on ae 
O3367 “WORD Seune 
11 “WORD SFFMSG 
4412 50$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 
441 12737 000001 030232 MOV #1,T25RB :NUMBER OF RECORDS TO SPACE OVER 
tale  eeeeneeeenceeneeeerteeeeeeereeneedeeeneeeenentanseeeteeeneeeerente 
4 
4416 ° SPACE REVERSE.ACK,CVC=1 COMMAND 
13 jounenetbeuntihovesssemestesnscoseconsouneenstessassosonntossesies 
441 140410 030230 MOV #140610, T25PKS sSPACE REVERSE,ACK,CVC=1 COMMAND 
44 Q é MOV #T25PK3.R4 “SET UP R4 WITH SACKET ADDRESS 
44 65$: MOV R4, TSDB(RS? * ISSUE COMMAND 
44 171 JSR PC WAITF 
44 MOV TSSR(RS) RI 
44 MOV #SSR_R2 
4 CMP R1_RO 
4 BEQ 75$ 
4 020100 JSR PC FATCHK THAN 25 ERRORS 
4431 ERRHRD ERRNO, T25WDE ,PKTSSR AD DATA 





oe ee 


ii a 


: SPACE RECORDS 


CZTUYAD Ty8 FRONT END PRT C 
| TEST 


AAAS ABA 


ERERE 


SEER 


=i 


535 


REE 
EPRORKIS 


ox 


011700 


G1E708 900400 saos, 





140001 030230 


1 
171 


020100 


020100 


002170 
020152 


es | 
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000031 


75$: CKLOOP 
1 MOV s236. 28 
= FREE §- «88 


nm ee eee ee — — _ . 


-WORD PKTSSR 
TRAP CSCLP1 
hoa SIZE 
TING READ BUFFER ADDRESS 


;LOOP IF SELECTED 





. 
j eeeneuseneecnececeeierseetecensesecaacstaecsesensncencenenceneetes 


READ DATA,ACK,CVC=1 COMMAND 


 eaeeaneeeneeeeeeeeeeereeeeererenceceeecenennnneneeneeeeeeeneeeers 


165$: 
WAITF 
rages) R1 
+ sasre 
76$ 


PC, FATCHK 
ERRNO, RDERR,.PKTSSR 





170$: 





ATCHK 
NO, T25WNG ,EXPREC 


200$: ENDSUB 


CMP FATFLG,#25. 
BLT 999$ 
JSR PC ,CKDROP 








H 
RECORD SIZE IN PACKET 
SR_T9 SET 


K FOR MORE THAN 25 ERRORS 
_ 


cr AFTER we DATA 









WORD 
- WORD 





RDERR 
PKTSSR 
sLOOP IF SELECTED 

CSCLP1 


TRAP 

-GET FIRST WORD FROM BUFFER 
sSET UP EXPECTED 
:WAS RECORD 


IF CORRECT RECORD 
ORE AND K FOR MORE THAN 25 ERRORS 
«SHOULD AD HAVE CeEEN RECORD NUMBER Ri 
. WORD 









_— 






-WORD #EXPREC 
2:>>>>>>>>>>>> END > ee >>>>>>>>>>>> 
CSESUB 





TRAP 
IS ERROR cour AT 25 
BR IF LESS THAN 25 
TRY TO DROP THE UNIT 


SEQ 115 


RE - 
355 @ 
Rtatactantictactarttan) 
hyn ay Ay yy AN 
WN 
—™ 
o= ~ 


3» 5~ S~ B~ > S~ BBB S~ ~ S 
— 


wee ed 


ANNO 





CZTUYAO TUSO FRONT EMD PRT C 
TEST 1: SPACE RECORDS 


031569 1470 


o 


016644 


000250 
002116 
177772 
177756 
030262 


020100 


030100 


010332 
020100 





a 9 
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z+ 

TEST 1, SUBTEST 4 

‘VERIFIES THAY SPACE RECORDS FORWARD CAN SPACE A 
ZMULTIPLE NUMBER 


OF RECORDS (2 THROUGH 64K OR THE 
NUMBER OF RECORDS WRITTEN ON THE TAPE, 





> MAXIMUM 
;WHICH EVER IS LESS. 







BGNSU3 3 >>>>>>>>>>>> Sree Wesress >>>>>>>>>>>> 
:SET COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 


C$8SUB 
PC ,T2SREST 
PC, T2SRT 
7SET UP OTHER COMMAND PACKET 


PC. T25R 

T25CNT, T25CN2 ‘HOLD NUMBER OF RECORDS 

‘ T25 ZAC TUAL NUMBER OF RECORDS ON TAPE 
T UP REWIND DELAY COUNTER 


V 
menceusanzene sensesuatedssarseonnccennesnasoneeneacencuanen coaneee 





‘ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


a 
is. ISR PC CSOFINIT. cDO INITIALIZE ON CONTROLLE 


PC ,SOFINIT 





:D0 INITIALIZE ON CONTROLLER 
208 zBR F INIT WA 
BELAY 50 WAIT ABOUT .25 SECONDS 

MOV #250, (PC) + 
.WORD 
MOV LSDLY, (PC)+ 
- WORD 
DEC =6(PC) 
DEC ~22(PC) 
BNE .-20 

T250LY :DEC COUNTER 

“BR, IF MORE LOOPS REQUIRED 
TSSR(RS) RI 5 :CONTENTS OF TSSR REGISTER, 
FATCHK sINC AND CHECK FOR MORE THAN 25 E 

ERRNO, SF LERR, SF IMSG “FATAL ERROR TSSR WAS Sot OK 
TRAP evr 
<WORD SFIERR 





-WORD SFIMSG 
sSUBROUTINE NEEDS PACKET ADDRESS 


208: 


SREAAEAEAARERAERERERAREEREREEEEARAEERRERERRRERRAREEREREEEEEREAEERRE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


#T2SPACKET RS 


Beene ee delebalelsbebslahataladbataiehe 
PC WRTCHR * ISSUE WRITE CHARACTERISTICS 
cS 25§ 3BR ISSUED OK 
JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
MO RO.RI “SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG “WRITE CHARACTERISTISC "Shap 






CSERHRD 
Vinx 





SEQ 116 


| 
| 
| 


em er ee eee a —< 











n 9 
seo 117 
CZTUYAO TURBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 77-1 
TEST 1: SPACE RECORDS : | 
011666 WORD SFIMSG | | 
4516 25$:  CKLOOP sLOOP IF SELECTED | | 
104406 TRAP  CSCLP? 
4 17 SAREE EEAAEAAAAAEAA ASAE TERESA AA AAAAEAAAAEAAAAAAAAAERARAARARAAARAAARE 
451 ; 
4 $ ZISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
4 < eeeeeeeeeeeeeenenereeetereeereeeneneneneeeeeeeeeereeteereteeeeenes 
4 004 010434 J PC REWIND :CALL TAPE REWIND C 
4 103407 30$ ‘BR, IF 
4526 10 1 MOV RO,R1 ; SAVE TSS 
45 7 020100 JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
45 ERRHRD ERRNO, TOSRUN, PKTSSR “REWIND NOT ACCEPTED 
1 56 TRAP RHRD 
eo 
“GORD T2SRUN 
“WORD PKTSSR 
4530 30$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
030256 MOV T25CN2.R1, ; NUMBER OF RECORDS ON TAPE 
177776 MOV 5534. .R2 “MAX IT CAN SPACE OVER 
CMP R WHICH WE USE 
BGT Reh! “BR, IF # WRITTEN > rat 
MOV R1,R3 *# WRITTEN CAN BE USED 
BR 47$ “MOVE ON 





HPPPHLLLLLHLLPHLLLHLPHLL LSS SLKSS 





64 

6 177772 

26024 5 177756 
55 603. ? 030262 
4557 02604C + 920100 
4561 i 4 10645 

5046 006200 


030230 
030262 


* Bi 






sUSE MAX NUMBER 
;DON*T oh ALL THE WAY YET 
R OF RECORDS TO SPACE OVER 


jteeeeneeeececeeseieeqeeeeeeneeenaneeeeeanersssentensentenensenenes 


; SPACE FORWARD ,ACK,CVC=1 COMMAND 


jsneneeussrenseenscesescesucessesnsneesnsenssssasenssatesatenatenss 


MOV #4 -T25PKS 
65$: MOV if ene faspuy 
MOV Ra TSDBCRS 
67$: JSR WAIT - 
MOV TSERCRS), R1 
MOV #SSR.R2 
CMP R1_R? 
BEQ 75§ 
DELAY 250 


DEC Tg20Ly 
BNE $ 


JSR PC FATCHK 
ERRHRD ERRNO, T25WDE,PKTSSR 


sSPACE FORWARD,ACK,CVC=1 COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
;NUMBER OF RECORDS USED AS DELAY COUNTER 





:BR, IF OK 
sDELAY .25 + seme 
MOV #250, (PC)+ 
WORD 
MOV SDLY,(PC)+ 
- WORD 
DEC -6(PC) 
BNE 74 
DEC meg cre) 
BNE 720 
:BUMP DOWN COUNT 
:BR, IF NOT AT END OF DELAY 
INC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TR .. ceenne 





B 10 
























SEQ 118 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 77-2 | 
TEST 1: SPACE RECORDS | 
030 T2 | 
11 PKTSSR 
4562 75$:  CKLOOP sLOOP IF SELECTED 
1 TRAP  CSCLP1 
4 gt 7 910000 MOV #4096. .R3 sRECORD SIZE 
4 1 030232 MOV FREE, TOSRB ‘STARTING READ BUFFER ADDRESS 
4 5 £ RASA AAAAAAAAAAAAAA SSAA ASE AS SE AAAAAAAAAAAAARAAAAAAAAAAAAEAAAAAAAAEEE 
4 ; 
4 ZREAD DATA.ACK COMMAND 
4 + eeteeeteeeeeeeeeeeeeeeeeereeeeedereteareneeenrenenerereerererenes 
4 5¢ 100001 030230 MOV #100001, T25PK3 sREAD DATA,ACK COMMAND 
4571 0266 165$: MOV #T25PK3,R4G “SET UP R4 WITH PACKET ADDRESS 
4 ; MOV R3,12582 [SET UP RECORD SIZE IN PACKET 
4 51 1 MOV R4. TSDBCRS) S ISSUE COMMAND 
4 vi 51 171 JSR PC sWAIT FOR SSR TO SET 
4575 0261 MOV TSERCRs) R1 “GET TSSR CONTENTS 
4 26 51 MOV #SSR_R2 *SET UP EXPECTED 
4 51 CMP R1 Re SARE THEY EQUAL 
4 28 4 BEQ n768 “BR, IF OK 
4 1 000004 BIT 1T2.R1 ‘CHECK FOR TAPE STATUS ALERT 
4 1 BNE “IF SET ALL 1S WELL 
4 51 020100 JSR PC, FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
4 4 ERRHRD ERRNO, RDERR,PKTSSR *TSSR INCORRECT AFTER READ D DATA 
51 TRAP CSERHRD 
. gr 
; “WORD BE FESR 
4586 1 170$: sLOOP IF SELECTED 
AP —s-: CSCLP'1 
4587 2 154710 E.R1 :GET FIRST WORD FROM BUFFER 
4 56 N2,R2 
4 51 1 SUB : SHOULD BE LAST RE 
4 51 SWAS REC RED R 
4 BEQ “BR, IF CORRECT RECORD 
4 020100 ATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
4 520 , T2SWNG ,EXPREC “SHOULD HAVE BEEN RECORD NUMBER 1 
600< TRAP CSERHRD 
4 -WORD 1 
5206 WORD T2SWNG 
126216 4 “WORD EXPREC 
4597 226¢1 200$: ENDSUB 5>>>>>>>>>>>> END merest >>>>>>>>>>>> 
126212 1044 3 TRAP. CSESUB 
4598 26. 727 002170 000031 cMP FATFLG,#25. :1S ERROR COUNT AT. 5 
4599 026¢ ; 4 BLT 999$ “BR, IF LESS 
4600 )76¢ 020152 JSR PC, CKDROP *TRY TO DROP THES UAIT 








CZTUYAO TU8O FRONT END PRT C 
TEST 1: SPACE REC 
5 
4 
0 
11 
12 


FSFEEOYSSS 
285 
S38 





pee eee te} 
MISWNM =O OONOUE Ww 


~~ 

& 

Wa — _ > 
Ww N-OownNswv 


Se 





030100 


010332 
020100 


eee ee ee a ee 


Cc 10 
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030256 


030262 


tt 
TEST 1, SUBTEST 5 


; VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
IPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 

“MAX NUMBER OF RECORDS WRITTEN ON THE TAPE 

;WHICH EVER IS Less. 














BGNSU8B ¢>>>>>>>>>>>> eet ees" >>>>>>>>>>>> 
*"" TRAP ss C$BSUB 
JSR PC. T25REST 
MOV T25CNT, T25CN2 OUNTE 
JSR PC, t at COMMAND PACKET 
JSR a UP OTHER COMMAND PACKET 
MOV etait. T3SDLY UP REWIND DELAY COUNTER 
aneanenennenteceeeneecectectenceneetentsecnegeqeeeteetenterqeete 
ZISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
eee EREREEEEEEEREREEEAEAEEEEEEAARERERETAEREREREEREEEEEEREREREKERENt 
10$: JSR PC, SOFINIT 00 INITIALIZE ON CONTROLLER 
BCs 208 *BR FI WAS Ok 
DELAY 0 “WAIT ABOUT .25 SECONDS 
MOV #250, (PC)+ 
SOLY, (PC)+ 
=6(PC) 
-22(PC) 
T25DLY :DEC COUNT ER ‘ 
“BR, IF MORE LOOPS REQUIRED 
TSSR(RS) RI sCONTENTS OF TSSR REGISTER 
PC.FATC sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP  CSERDF 
.WORD 131 
-WORD  SFIERR 
“WORD SFIMSG 


MOV #T25PACKET RS 


0S: 
j veteneneenenencenececerseceresnnenanncanastannennegenenenenesente 


WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


j eteeeeneneeeneueeteeeeerseeneenceesaesncenseensecsenasentetssenes 





PC WRTICHR SUE WRITE CHARACTERISTICS 
BCS 25$ BR OMPIAND 
JSR PC FATCHK 





> INC AND 
MOV R : SAVE CONTENTS OF 
ERRHRD ERRNO, WRTMSG, SFIMSG 


258: CKLOOP sLO0p IF SELECTED 


D 
SUBROUTINE NEEDS PACKET ADDRESS 


TS 
WRITE CHARACTERISTISC rantee 


I OK 
FOR MOR® THAN 25 ERRORS 


. ee 


Ine 





SEQ 119 


— - 
eee eee eee ae 





ee ae a ae ee” 
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T 1: SPACE RECORDS 


026376 104406 TRAP CSCLPI 


fF SAAAASAAAAAAASASA SAAS AAAS AHS ERATE LAKH AAAAAARAAAHAAA AERA ERAEAAAAEE 





; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


seeheneeeeeeeeeareeererereeeeerangereeateneeeteneeneaetertereneeres 








010434 JSR ec REWIND :CALL TAPE REWIND COMMAND 
BCS § “BR, IF WO PROBLEM 
MOV RO,R1 SSAVE TSSR 
020100 JSR PC -FATCHK ZINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP c RHRD 
“WORD T 
PKTSSR 
30$:  CKLOOP SLOOP IF SELECTED : paige 
FARA RAAAAAAAAAAEEAEAAAEAESAEEEAARAARAEAERAAERAAEAREAAEREEAERERARERT 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
TISTILI TT iiiiiititiiiitier iii 
030126 T2SBER+6R Ri :PICK UP XSTO 
“SET UP EXPECTED 
000002 mit »R2 ‘SET BOT BIT IN EXPECTED 
m oes Pelt ol 
020100 PC ,FATCHK SINC AND FOR MORE THAN 25 ERRORS 










ERRNO, FOSBOT.EXPREC ‘TAPE NO NOT’ A Sor AFTER REWIND 

TRAP c RHRD 
T25B0T 
EXPREC 
CSCLPI 





40S: CKLOOP sLOOP IF SELECTED 
T oR1 ;NUMBER OF RECORDS ON TAPE 
oe 2 @ 2 


;MAX IT CAN SPACE OVER 
A ICH VAL 
RT_R3 : 


UE CAN WE USE 
F # WRITTEN > 64K 
rs Re a MAX NUMBER 
030232 sNUMBER OF RECORDS TO SPACE OVER 


I 
ITTEN CAN BE USED 
cenanenaeecaensnndeneeseeceueensseasenrnenereentenesneenenseneess 


:SPACE FORWARD ,ACK,CVC=1 COMMAND 


jsnnaenoeceenenavenssevesseegeanennesesecssnassasssanasanaustenss 


1 030230 MOV £14019, T25PKS sSPACE FORWARD,A 1 COMMAND 
MOV #T25PK3.R 3SET UP R4 WITH SACKET ADDRESS 


177876 









MOV R4,TSDBCRS) SUE COMMAND 
030262 MOV T25CN2,125DLY °SET UP DELAY COUNTER 
48$: JSR PC WAITF *WAIT FOR SSR TO SET 
MOV rsémens) RI 
MOV #SSR_R2 





mh 


erm mm me se ee eae 





E 10 | 
SEC 121, 



















020100 


ees 
Bins 


JSR PC FATCHK 
ERRHRD ERRNO, T25WDE ,EXPREC 
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TEST 1: SPACE RECORDS 
4701 ¢ DELAY 250 sWAIT .25 SECONDS 
#250, (PC) + 
SOLY, (PC)+ 
=6(PC) 
4 
~2g¢PC) 
4708 DEC T25DLv :DEC THE DELAY COUNTER : 
4 BNE “BR, IF COUNTER HASN'T EXPIRED 
470% JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
4 ERRHRD ERRNO, T25WDE .EXPREC *TSSR INCORRECT AFTER READ DATA 
TRAP _ 
“WORD T25WDE 
-WORD EXPREC 
4709 50S: ; OF RECORDS ON TAPE 
4710 ¢ : CAN SPACE OVER 
471 : ALUE CAN WE USE 
471 : # WRITTEN > 64K 
4713 O¢ : EN CAN BE USED 
rar 55$: : 
arg 60S: ; THE WAY YET 
471 A SNUMBER OF RECORDS TO SPACE OVER 
rt ae 
47 *SPACE REVERSE.ACK,CVC=1 COMMAND 
47 PITTI iti itil itii iit titi iii 
4 140410 030230 MOV sSPACE REVERSE ,ACK,CVC=1 C 
é 0 mov “SET UP R4 WITH PACKET ADDRESS 
rf 302 030262 MOV “SET UP COUNTER 
4 1 70$: JSR “WAIT FOR SSR TO SET 
4 MOV “GET TSSR CONTENTS 
4 MOV “SET UP EXPECTED 
4 CMP sARE THEY EQUAL 
4731 BEQ sBR, IF OK 
47 DELAY “WAIT ABOUT .25 SECONDS 
000250 MOV #250, (PC) 
002116 MOV LSDLY, (PC) 
WORD 
177772 DEC =6(PC) 
BNE 4 
177756 DEC ~2gcPC) 
BNE .- 
030262 DEC T25DLY 
BNE 7 





Co TUVAp TUBO FRONT END PRT C 
TEST 1: 


SPACE RECORDS 
4740 


| 474 
474 
4 





7 








7 


= 





~~ vwv~w 





no a 


030980 030230 
7 


153756 
000001 


020100 


F 70 
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75$:  CKLOOP sLOOP IF SELECTED 
TRAP  —- CSCLP1 
#4096. .R3 :RECORD SIZE 
FREE. TOSRB “STARTING READ BUFFER ADDRESS 


{AAA AAAAAHAAEAAAARS ASE SAAT A LAE AARAAAAAAAAAAAAAAAAAAHAAATAREREAEAANE 


“READ DATA,ACK COMMAND 


2 
sAAAAASAAAAAAAAAAAEHAAES AAS AAEAEAAAEAAARAAAAAAAAAAAAAAAAAAAARARENS 









































MOV #1 1. TesPKS sREAD DATA,ACK COMMAND 
165$: MOV #T 3,8 :SET UP R&4 WITH PACKET ADDRESS 
MOV sSET ALL ONES INTO CORRECT REGISTER 
JSR 3 MEMORY WITH RECORD SIZE 
MOV 3 RECORD SIZE IN PACKET 
POV 3 COMMAND 
JSR g SSR TO SET 
MOV $ 
MOV 3 
CMP § 
BEQ 5 
BIT r TAPE STATUS ALERT 
BNE . SET 
JSR PC, FATCHK $ FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, RDERR,EXPREC “TSSR INCORRECT AFTER READ DATA 
-WORD RDERR 
eWORD EXPREC 
170$: CKLOOP sLOOP IF SELECTED 
BAP CSCLPI 
MOV oki GET FIRST WORD FROM BUFFER 
MOV : EXPECTED 
CAP R 3 CORD NUMBERED R3 
BEOQ ; CORD 
JSR FATCHK ; MORE THAN 25 ERRORS 
FRRHRD o T2SWNH ,EXPREC $ N RECORD NUMBER 1 
TRAP CSERHRD 
eWORD 1 
- WORD 
-WORD EXPREC 
200$: ENDSUS 3>>>>>>>>>>>> END syerest >>>>>>>>>>>> 
TRAP CSESUB 
CMP FATFLG,#25. 31S ERROR COUNT AT 25 
BLT 999% sBR, IF LESS THAN 2 
JSR PC ,CKDROP :TRY TO DROP THE UNIT 









CZTUYAO TUBO FRONT END PRT C 


TEST 1: SPACE RECORDS 





SSLSAEAN 
RILKLE 


5 keh ee 


ro at at > at tt 
$SSZZZSII3 


S ta 
wm 
™~ 
ay 
aeons 
oo = 
SSsss =s oS 
No rs 
eB me 
wie Fd 
ow -=Nws 


RULRVLSLLLE 
WaSResseey 
2333 23s3 
D~uhO SEN 
Seoe Suse 








031470 


031626 


016644 
020100 


030100 


010332 
020100 


010434 


020100 


G 10 
MACRO M1200 29-MAR-83 13:42 PAGE 80 





—_—_—— 


3+ 
sTEST 1, SUBTEST 6 
















; VERIFIES THAT SPACE ee REVERSE ISSUED WHILE THE 
:TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR SIT SET. 
os BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
— C$BSUB 
JSR PC, T2SREST sSET COMMAND PACKET 
JSR PC,T AL SET UP OTHER COMMAND PACKET 
PC.T SRT ET UP OTHER C 


J : OMMAND PACKET 
WIS TTI IIT Littl ti iii iti iii iis iii iii iii) 


SISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


© RRSAIAAEAAAEARAEAARAASAEEAATAEAAAEEAAAARARAAAAAARAAARAARAAAERSEEERAAEEAEEE 





JSR PC .SOFINIT 700 INITIALIZE ON CONTROLLER 

aes 2 :BR IF INIT WAS OK 

JSR PC FATCHK NC AND CHECK FOR MORE THAN 25 ERRORS 
MOV R1 °CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 






ese 


SFIERR 
SF IMSG 


~ WORD 
MOV #T25PACKET RS TINE NEEDS PACKET ADDRESS 


0S: 3 SUBROU 
[RR eRReeeeeeaeeneeeeeeereeeeearenarenereeeteereeenenenereeeneeees 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


, eeeenceneecereereererececeeeeenececereneneenteeeeececeeeeeeetentet 





JSR URTCHR sISSUE WRITE CHARACTERISTICS 

Bcs 2 “BR, IF COMMAND ISSUED OK 

JSR BC .FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV “SAVE CONTENTS OF T 

ERRHRD ERRNO, WRTIMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 






io 


° WRTMSG 
SF IMSG 


CSCLP1 


25$: CKLOOP sLOOP IF SELECTED 


R 
{AAS AAAAAASAAAAAAAEAAEAE AE AAEAAAAAEAERERAAEAAARARERAEARAEAARERERERE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


aioe: goa yee Set Ee oe 


sCALL TAPE REWIND COMMAND 
PROBLEM 


JSR 
BCS 






BR, IF rr 
:SAVE TSSR 
CHECK FOR MORE THAN 25 ERRORS 


INC AND 

;REWIND NOT ACCEPTED 
TRAP cree 
- WORD 4 
WORD T2SRWN 






MOV 
JSR 


FATCH 
ERRHRD pcr AT SO SRUN, PKTSSR 





SEQ 123 


ee ee ae —_—— 





=—- 


ZTUYAO TUSO FRONT END PRT C 


EST 1: SPACE RECORDS 
74 011700 

183 087876 
5 76 104406 


030126 
000002 


020100 


000001 


020100 





mm same 
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030232 


030230 


-WORD PKTSSR 


CSCLP1 


30S: CKLOOP LOOP IF SELECTED 


{AAAS AAAAAA AA ARS SS AAA RATES SAE AAASAAAAAAAAAAAAAKAKAAH AAA AREREAAEE 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
£ RESAAEAAAAAALASAA AKA AASAATAAAAAAAAAAAAAAAAAAAAHAAAKAAAAHAAAARAAARE 












T25BER+6 RI :PICK UP XSTO 

MOV [SET UP EXPECTED 

BIS #BiT1,R2 “SET BOT BIT IN EXPECTED 

CMP R1,R2 :DOES E C’D 

BEQ 40$ 7BR, IF EQUAL (OK) 

JSR PC, FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T25BOT.EXPREC =TAPE NOT AT BOT AFTER REWIND 
TRAP ow 
" 4 
. T2580T 
F EXPREC 

40$:  CKLOOP sLOOP IF SELECTED 


RAP CSCLP1 
#1, T25RB : R OF RECORDS TO SPACE OVER 


NUMBE 
f PARAS HAAAAAHAAAAESAATE SESE EEA AAAAAAEREEAEREREAEEEEEAERAAHEERAEEEEE 


[SPACE REVERSE.ACK COMMAND 


é 
FRARAAAAAAAAAAAAAE ASS SSSA ASAE LAAARAEEAAAAARAREREEAERAAAREERAREARERE 














MOV 10, 125PK3 sSPACE REVERSE,ACK COMMAND 
MOV at °SET UP R4 WITH PACKET ADDRESS 
65$: MOV R4, TSDB(RS) SISSUE COMMAND 
JSR TF “WAIT FOR SSR TO SET 
MOV TSSR(RS) RI °GET TSSR CONTENTS 
MOV #SSR'SC'BIT1'BIT2.R2  :SET UP EXPECTED 
cw R1 gre ; EQUAL 
JSR PC, FATCHK °1 CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25WDE .PKTSSR *TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
WORD 14 
“WORD  T25WDE 
“WORD PKTSSR 
75$:  CKLOOP sLOOP IF SELECTED sini 
SRAAAAASAAAAEASAASAAAAT SAREE AEKAAAEAAAAAERARARARERAAAAAAERERARRAERES 
“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
‘eeeeeeeneneeeeereterenereeeeeeedeenetteeereeenteeeeeeeeereneeeee 
MOV T25BFR+6,R1 
MOV R1_R 
BIS #BiT10,R2 
CMP R1R2 
BEOQ 176$ EQUAL (GOOD) 
JSR PC. FATCHK MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2SNEF ,EXPREC 
TRAP c RHRD 
.WORD 14 





SEQ 124 





GN, Raa 








mis HLL 


Bh 


002170 000031 
020152 


170$: 
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CMP FATFLG. #25. 
BLT 9998 
JSR PC ,CKDROP 


ee 








> 
aN 


En 
— 
IN 


y Ya? oT a a > > >? 
3333383383388 
_— 
rr 
SNS 
S332 
AAS 
~~ 





~~ 
a 
Seer 
S oO 
we 
wa =v 


1 33 
; O3880 
4918 B5e885 Oates 
491 
49 
4 
a3 
; rf 103407 
4 004737 
4 010001 
49 7 
3 1 $36 
sie 
c932 O3756) 
4933 
49 
4935 
49 
49 


104456 


030100 


010332 
020100 


010434 


020100 


mem ee ee eee ee ee t—=w 
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z+ 
TEST 1, SUBTEST 7 


[VERIFIES THAT A SPACE RE 
SCUASES THE TAPE TO RUN IK 
SINITIALLY AT BOT) CAUSES 






US_AL 
VERSE INTO BOT (RIB) 









: TERMINAT ION AND SETS THE 
— T 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
— C$BSUB 
JSR PC, T25REST sSET COMMAND PACKET 
JSR PC, T25RT SET UP OTHER COMMAND PACKET 
PC, T25RT SET UP OTHER COMMAND PACKET 


J 
seeeneeeeeeeneeeereeteteverenereeennteneeetenerentenereteetteereete 


$ ISSUE CONTROLLER “‘SOFT’’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


< eeeeeeeeeenreeeeneeeeereneeerenaeagheteneeakeedeenenertereeneetrte 


PC SOF INIT :b0 INITIALIZE ON CONTROLLER 
INIT WAS OK 


acs 
JSR PC ,FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV “CONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 








CSERDF 
-WORD 14 
-WORD SFIERR 
«WORD SFIASG 
MOV #T2SPACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 


seeeneneneneesceueeenscuenseeeecunennentianensesaeanaesenseneaeners 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


< eneneeneneeneeeneeeeeeeeerereeeeeecenneneceeeneeeeeteeseaneeeecees 










JSR PC WRTICHR s ISSUE WRITE CHARACTERISTICS 
BCS BR, IF COMMAND ISSUED OK 
JSR PC ,FATCHK SINC AND C FOR MORE THAN 25 ERRORS 


sSAVE_ CONTENT § OF T 


MCV R Ss 
ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE ne vanes oe —S 





-WORD WRTASG 
-WGRD SFIMSG 


25$: CKLOOP sLOOP IF SELECTED 


SRAERERAAAEHERATAAAEAEREEAETEREAERERAEEERERERERAAAAERARERERERREEERE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


seeeneeenereenenenaeeeeretetetteeteneteataagteretentteeteneseetenes 
JS 


sCALL TAPE aad COMMANS 


OBLEM 
SAVE TSS 
ZINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


CSCLPI 





RWN,PKTSSR 





SEQ 126 


eee ee 
NN eae wee oe rll ee 


— oe ee = 


K 10 
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TEST 1: SPACE RECORDS 


aie 


s 
SESEE 






































' 
| 
> 

pers 30$:  CKLOOP sLOOP IF SELECTED a | 
4967 oPERAASAAAAAAAA SHEA SSAA EAESEEAAAAAAAAAEAKEREAAAAAAAAAAAAAREARAREES | 
4 : 
6349 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
4 < eeeeneneneeneneneeneerereereeeeeeeeneseneecereneceteeteerateneenes 
4952 027610 013701 030126 MOV T2SBER*6, R1 sPICK UP XSTO 
4 7614 0101 MOV :SET UP EXPECTED 
4 7 702 000002 BIS st »R2 “SET BOT BIT IN EXPECTED 
4 1 CMP “DOES EXP = REC'D 
4 6 6 Mg BEQ “BR, IF EQUAL (OK) 
4 020100 JSR ATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
4961 027 ERRHRD PeSEATCME EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
7 1 456 TRAP RHRD 
7 ? . WORD 
7 7 "WORD T25B0T 
7 1 “WORD EXPREC 
4 7 12737 000001 030232 40$: #$ MOV #1, T25RB sNUMBER OF RECORDS TO SPACE OVER 
4 j teeennensenenenceceerereeteneetenstancenennecensnaasanteneneneenes 
4 
4 & “SPACE FORWARD, IE.ACK,CVC=1 COMMAND 
4 paohetnemmaqeeesupessasosmsneonatoenetescasstecenazesestecnoeoses 
4 7 12737. 140210 030230 10, T25PK3 sSPACE FORWARD, IE,ACK,CVC=1 COMMAND 
4 127 0 é “SET UP R4 WITH PACKET ADORESS 
49 1 R4, TSDBCRS) sISSUE C 
49 ? 171 PC .WAITF SWAIT FOR SSR TO SET 
49 TSSR(RS) RI : CONTENTS 
497 1 #SSR,R $ 
637 } sr 
6376 737 020100 PC FATCHK : FOR MORE THAN 25 ERRORS 
4 ERRNO, T25WDE , EXPREC *TSSR INCORRECT AFTER READ DATA 
1 4 TRAP CSERHRD 
1 .WORD 14 
“WORD T25WDE 
16344 “WORD EXPREC 
4981 75$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 
4 7724 012737 000020 030232 MoV #20, T25RB sNUMBER OF RECORDS TO SPACE OVER 
4 jtenenecenencenenentenecenerecessnecenannaneanenanenaneneeseteretes 
4 
4 5 3 SPACE REVERSE, 1JE,ACK COMMAND 
4 jeeeneanenencerncnssensnesscegueeennucennassensssasaaseasssetenees | 
4 732 1 12737 1008 030230 MOV -T25PK3 sSPACE REVERSE, 1E.ACK COMMAND 
4 MOV R “SET UP R4 WITH P PACKET ADDRESS 
4 MOV (RS) 18S 
4 JSR f “WAIT FOR SSR TO SET 
4 MOV TEER CRS [GET 
499 MOV assnipité: $c, R2 °SET 
4 CMP “ARE THEY 
4995 BEQ RY Re :BR, IF OK 


CZTUYAO TUBO FRONT END PRT C 
1: SPACE RECORDS 


TEST 





620100 


030134 
000001 


020100 


002170 
020152 
017354 
023704 


L 710 
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000031 


175$: 


180$: 


193$: 


JSR 
ERRHRD 


PC FATCHK 
ERRNO, T25WDE ,EXPREC 


T25BFR+14,R1 
R1_R 

#B1T0,R2 
R1,R2 


PC, FATCHK 
ERRNO, T2SNEF ,EXPREC 


FATFLG,#25. 
999$ 

PC ,,CKDROP 
PC, TSTLOOP 
158s 
T25L00P 


TST 


ee —— 








TRAP = CSCLP1 
:GET XST3 STATUS WORD 

[SET UP EXPECTED 

°SET THE RIB BIT 

TARE THEY E 

“BR, IF EQUAL ¢ 

SINC AND CHE THAN 25 ERRORS 
“NEF SHOULD 





“WORD EX 
$>>>>>>>>>>>> END syerest >>>>>>>>>>>> 
L1 5: 

TRAP  (CSESUB 
21S ERROR COUNT AT 25 
“BR, IF LESS THAN 2 
“TRY TO DROP THE UNIT 
:D0 WE NEED TO ITERATE TEST 
“BR, IF NO LOOP REQUIRED 
“EXECUTE AGAIN 
sALL DONE THIS TEST 





TRAP 


WORD 10086~. 


SEQ 128 





TU8O FRONT END PRT C 
: SPACE RECORDS 


Ooooooccccdoe2 


eed eed coed woud 


sesseess 
BaRNSSRRESSe 
&n * 


oooog2 Sooocoeoo Ooooooeo 





3S 
ond —_ 
oat OC) od 
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i4 
LOCAL STORAGE FOR THIS TEST 


-BLKB 10-<.-TUV2A87> 
ates , 
- WORD ayer 
‘WORD 8 
WORD . 
T25DATA: 
-WORD T25BFR 
eWORD 0 
eWORD 10. 
WORD g 
T25BFR: .BLKW 5. 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
-BLKB 10-<.-TUV2A87> 
T25PK2: a 
‘WORD TSSBRS 
eWORD 0 
eWORD 6 
-BLKB 10-<.-TUV2A87> 
T25PK3: 
eWORD 100005 
T25RB: 
T25WB: .WORD FREE 
eWORD 0 
T25SZ: .WORD 0 
EVEN 
T25BF 2: 


125880: .BYTE 10 


ae} 


-EVEN 
TAPE MOTION PACKET COMMAND VALUES 


T25RN: .WORD 1 5 
LE fa WOR: eWORD 1 5 
ON: .WORD 1 003 

WORD 1 7 


COMMAND PACKET 
WRITE CHARACTERI 





WITH ACK 
SADDRESS OF CHARA K 


STARTING VALUE OF BLOC 
;CHARACTERISTICS DATA ity 
ZADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 





sWRITE SUB SYS MEM COMMAND, AND ACK 
SADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 


“DATA AREA 


EREAD DATA (NEXT) 


ITE 
SEND OF DATA 


N 10 
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90000C T25CN2: .WORD 0 sCOUNTER FOR RECORDS 
100006 T25CNT: .WORD 0 [COUNTER FOR RECORDS 
T2SDLY: .WORD 0 SCOUNTER FOR RECORDS 


3+ 
LOCAL TEXT MESSAGES FOR TEST 








1 136 111 T2 : -ASCIZ ‘DRIVE IS OFF-LINE’ 
127 1 111 T2 : .ASCIZ ‘WRITE SUBSYSTEM Miscellaneous Read Status Failed" 
124 123 123 T eASCIZ — Not Correct After POSITION (SPACE) Command’ 
124 141 190 T eASCIZ 17 ap8 Not At BOT After REWIND Command’ 
=, 124 123 \¢ T eASCIZ R Not Correct After ye ty yk Command) Reject’ 
T. 127 162 151 T eASCIZ arian Tape, Status Alert ed’ 
; 1 160 141 =T “ASCIZ. "Space Forward Failed To has titan On Correct Record’ 
IE 1 160 141 T eASCIZ ‘Space Forward, From BOT, Failed To Clear BOT Indication’ 
99S 1 160 141 T eASCIZ ‘Space Reverse Failed To postiten On Correct R cord’ 
1 } 160 141 T eASCIZ ‘Space Reverse, At BOT. Failed To Set NEF (XST 
1 1 160 141 T eASCIZ ‘Space Reverse, Into BOT. " gig w Set ,RIB aST3)° 
1 1 430167 “ASCIZ ‘Rewind (POSITION) Command Not Accepte 
1 1 1¢ 151 T eASCIZ ‘Drive 7 Select Failed To Set ORE’ In rssr* 
1 124 1 123 T eASCIZ ‘TSSR Not Correct After READ DATA Command’ 
1 123 160 141 T eASCIZ ‘Space Records’ 
1 EVEN 
1 3 
: TINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
HY sWRITE SUBSYSTEM MEMORY COMMAND 
11 :- 
11 
i 162 T25REST: 
15 4 SAVREG SAVE THE REGISTERS 
118 147 701 030100 MOV eter ecke? R1 sSTART OF THE PACKET 
1 1 721 4 MOV 230at (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 
1 1 12721 030110 MOV #T DATA, CR1)4+ zADDRESS OF CHARAISTICS DATA BLOCK 
1 1 9 1 CLR & R1)+ *EXTENDED ADDRESS 
1 151 1 000018 MOV en sSIZE OF DATA BLOCK IN BYTES 
? 12 nov s6rR. (RI) + *ADDRESS OF MESSAGE BUFFER 
! $ ! S : 000024 rg! #20, (R1+ sLENGTH OF MESSAGE BUFFER 
125 031 ? 1 MOV Kar >SELECT DRIVE ZERO 
1 $ MOV Re R OF LOCATIONS TO BE CLEARED 
1 7 030120 64$:  #$MOV sheet T25BFR(R2) TAL LL ONES TO MESSAGE BUFFER 
1 7 TST -(R2 :NEXT L Aes 
1 ! 4 000000 CMP #0 > S R2 AT ZERO YET 
1 BNE 64$ S KEEP GOING UNTIL DONE 
: 1 07 RTS PC *RET URN 
1 1 T25RT2: 
1 1 SAVREG sSAVE THE REGISTERS 
1 1 12701 9 10 MOV #T25PK2,R1 * START OF THE PACKET 
1 1 12721 MOV #1 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
1 157 12721 03024 MOV #T25BF2,(R1)+ “ADDRESS OF DATA BLOCK 
1 1 021 CLR (R1)+ “EXTENDED ADDRESS 


B11 
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TEST 1: SPACE RECORDS 

5139 031 1 000006 #6.,(R1)+ 

140 031 1 (Ri$+ 

14 1 1 030240 #T25BF2,R1 

142 031 1 (R1)+ 

143 031 1 (R1) 

1 1 7 PC 

14 1 T25RT3: 

146 16246 

14 1 12701 030230 tO 8 ad 

148 1 12721 #0, (R1)+ 

14 1 12721 #0, (R1) 

1 1 1 (R1)+ 

1 1 1 000000 #0, (R1)+ 

1 1 7 

193 O3y 

1 104401 


SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE THE REGISTERS 
SSTART OF THE PACKET 
WRITE we BT MEM. WITH ACK, 
ZADDRESS OF DATA BLOCK 

;EXTENDED ADDRESS 

3SIZE OF DATA BLOCK IN BYTES 
;RETURN 












L10036: 
TRAP CSETST 











: 

1 

1 

1 774 

1740 O12 S778 046104 


c 11 
SEQ 132 

























R COMMAND PACKET 
T UP DELAY COUNTER 





PC, T26REST 

PC; T26RT 

PC. T26RT 

#65000. , T26DLY 


CZTUYAQ TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 84 
TES’ 2: REREADS 
51 5 : .SBTTL TEST 2: REREADS 
1 : | 
1 “THIS TEST VERIFIES THAT THE REREAD | 
1 =C E Y. VARIOUS | 
166 “DATA BUFFER BOUNDRIES, RECORD SIZES 
1 ;SPACE IS AVAILIABLE), AND BYTE-SWAP ( 
31 TOL ARE USED. ALSO TESTED ARE PROPE TERMI 
1 EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
3164 “LENGTH SHORT, READ REVERSE AT BOT ILLEGAL DAT 
165 ; AND DATA BUFFERS IN NONEXISTENT MEMOR 
1 ‘ 
i <THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 
170 ; 
17 ; 
5172 = 
51 sla 
174 031 5037 3170 FATFLG CLEAR FATAL ERROR FLAG 
175 03) 7 1 KTFLG sHOLD OFF K 
176 1 12737 005744 002146 MOV #EPRT2,EPRTSW SECONDARY ERROR MESSAGE 
1 1 737 20244 +43 TOFF ‘DON'T NEED KT11 
1 1 127 06 7 OSS ToeID RO “ASCII MESSAGE TO IDENTIFY TEST 
1 1 7 174 PC, TSTSET 3D0 INITIAL TEST SETUP 
1 1710 127 7 002164 # LOOPCNT RFORM 1 ITERATIONS 
1 037 046076 , T26CNT “CLEAR TAPE RECORD COUNTER 
1 : 
:TEST 2, SUBTEST 1 
1 : 
19 *VERIFIES THAT THE REREAD 
19 SOPERATES PROPERLY. 
193 WOUND AND T 
1 “RECORDS VARY! 
199 : 
197 : 
199 : 
1 : 
5 031722 T26LO0P 
! $ BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
""" TRAP ss CSBSUB 
ACKET 
R COMMAND PACKET 
10 
1 
12 


nme em ee me -_ 





D 11 





SEQ 133 
T END PRT C MACRO M1200 29-MAR-83 13:42 PAGE 84-1 | 
| 
sAAAAAAASAAAAAAAARAAS SAA AAA SSSA AAAS AAAS AAA AKAAAAAAAAAAAAAAHAAT AANA 
ISSUE CONTROLLER “’SOFT' INITIALIZE = CARRY BIT CLEAR IF ERROR | 
+ eeeeeeeeeeeeeekeeeeeal eeeeeereaatearenenrereneanerenrereneneseree 
' 
016644 10$: JSR PC SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS “BR IF INIT WAS 
DELAY 250 [DELAY FOR A REWIND TO FINISH 
000250 MOV #250, (PC)+ 
002116 SOLY, (PC)+ 
177772 ~6¢PC) 
177756 ~2g<PC) 
046104 DEC I 6DLY : ; 
020100 JSR PC ,FATCHK 25 ERRORS 
MOV R1 
ERRDF ERRNO,SFIERR,SFIMSG 
sen 
“WORD  SFIERR 
“WORD  SFIMSG 
20S: 
045720 MOV #T26PACKET RG s SUBROUTINE NEEDS PACKET ADDRESS 


seRRRRERRERARTEAEAAAALEAAEAEEAAAAAAAAAAAARAAAAAAAAEAAKAAAeAeteeet 
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


s 
SRARAAAAAARAAAAAAATATSESAAAPAAAAAARARARARARARERAARARAERAAERARERETERE 


010332 JSR PC WRTCHR s ISSUE WRITE CHARACTERISTICS 
acs é “BR, IF C 













; SUE 
020100 JSR PC, FATCHK 7 INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV *SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG,SFIMSG “WRITE CHARACTERISTISC FAILED 
1 TRAP CSERHRD 
37 WORD 
754 "WORD WRTMSG 
1666 “WORD SFIMSG 
5248 26$:  CKLOOP sLOOP IF SELECTED 
= 104406 TRAP CS$CLP1 


sRRAAAAEAAAAAARAAETEAAEEAEAEAERERARAAAARAEREAARERAAAAERERAEREREEEERS 


* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
SRR AAAAAAAAAAAAAAARAAAAAREREAAAAAERAEARARAREAEERERARERERERERARARARE 


004737 010434 JSR ec REWIND :CALL TAPE REWIND COMMAND 
13 BC 30§ “BR. IF NO PROBLEM 
016501 000000 MOV TSSR(RS) RI “GET TSSR 


CZTUY 


_Tu80 FRONT END PRT C 


TEST 2: REREADS 
2 59 or 016094 000200 
5261 1 020100 
5265 , 
11 sept 
11 404 
11 11700 
116 
116 104406 
13701 045746 
4 0101 
5 . 000002 
14 
73? 020100 


PORSRSROFORSRGRGRORGROROR SAGAS 


eed ced eed od ed cad rd ed ad sod end a bh eed ce i td 


SENNSO RN 


196 OIg eas 
10 


38863 104457 





008072 


046050 
72 


171 


020100 


= 11 
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046052 


046050 


30$: 


MOV +e R2 
MOV 


JSR 
ERRHRD pc eFAT TOGRUN, PKTSSR 





CKLOOP 


ee eee — 






S$ SET UP 
CK FOR MORE THAN 25 ERRORS 


ites 






T 
PKTSSR 
CSCLP1 


sLOOP IF SELECTED 





FAA AAAAAAAAAEAAAAEAAEAEAEERERAAAAAEEAAAAAAEEREAEEAEREAEAAAEAAEEAEE 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


6 
sRAAARHAAAEAAAAEESR AEAEEAEAEKE EE EAAAAERERARAAAAAAAEEEREEAERAAAAEAAENE 


40$: 





T26BFR+6,R1 
R1.R2 

#pitt Re 
40$ 








PC FATCHK 
ERRNO, T26B0T ,EXPREC 


CKLOOP 
MOV #256. .R3 
MOV FREE 2 


sPICK UP _XxSsTO 

3SET UP EXPECTED 

3SET BOT ort les EXPECTED 
= 





:DOES E 
:BR, IF EQUAL OK) 
[INC AND CHECK FOR MORE THAN 25 ERRORS 
‘TAPE NOT AT BOT AFTER REWIND 
TRAP SERHRD 





- WORD 
- WORD 

- WORD 
sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
SSTARTING WRITE BUFFER ADDRESS 


T T 
EXPREC 
CSCLP1 


SARAAAAAAAAAASAAAAETAS KALE LA AAAAAAARARAAEAAAAAAEAAEAAARAARAERAAARAEEREE 


“WRITE DATA,ACK,CVC=1 COMMAND 


e 
FRAAAAAAAAAAARAEAEAEKETAETAAEEAAAEAARAAAAERAAAAERAREREREAAERAAEAERERE 


65$: 


Are LO ges 
#T26PKS,R4 


1 an 
ae Dh all 


Tsgncns) R1 
1 sas 
75 

PC, FATCHK 






©. Ge he a 
eEegsecesss Ss 


ERRSOFT ERRNO,WRTERR ,EXPREC 





sWRITE DATA,ACK,.CVC=1_ COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


SET PATTERN IN Coarse REGISTER 
FILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 











a 


CZTUY 
TEST 


fia - 


7 a END PRT C 





4 010434 
Se sau 
020100 

su 

11 

ss 104406 
1 045746 
a 
sy ° 020100 

1044 


+ 
ahd 

11700 
5355 


: 693799 000400 046102 
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75$:  CKLOOP sLOOP IF SELECTED tee 
TST (R3)+ ;BUMP RECORD SIZE 
CMP #268. .R3 i END OF RECORD YET 
BNE 65$ F MORE RECORDS TO WRITE 
80$:  CKLOOP Poor IF SELECTED 
TRAP —- CSCLP1 


120$: 


SRRAAAAAAAAAAAEAAREAEEAEEAAAEEEAAAERAAAAARERTAAAARAAAERAEAEEEAAAERRS 
ZISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

- SARAAAASAAACARAAAAAASSAEAASTAAETAASAAAARAERARAARAAAAARAAAAEAETAAREEEREEE 
PC REWIND 
TSSR(RS) RI 







sCALL TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 









GET T 
SET UP EXPECTED ISSR 
T ADDRE 


3PAC 
ZINC AND CHECK 
SREWIND NOT ACCEPTED 





FAIC 
pc eral TDORUN, PKTSSR 





T UP 
FOR MORE THAN 25 ERRORS 
RHRD 














oe 
“WORD PKTSSR 
130$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
SRRERAAAAAAAAAAAAEAAAAAAATETASAARAAAEAAARAAARERAAARAAERARAAERERAEEES 
*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
PITTitiiiiiiiiiiiiii iii rr re 
T26BER+, R1 :PICK UP XSTO 
Re >SET UP EXPEC TED 
aie »R2 “SET BOT BIT IN EXPECTED 
“DOES EXP = REC'D 
Loe “BR. IF EQUAL ( 
pec FATCHK SINC AND CHECK HAN 25 ERRORS 





FOR MORE T 
ERRNO, T26B0T ,PKTSSR :TAPE NOT AT BOT AFTER REUIND 





a 





140$: 


CKLOOP 
MOV #256. ,T26RSZ 


sLOOP IF SELECTED 
sSET RECORD SIZE 


© SRSSERSASAAAAASAAAAAAEATAERERERAEAERE RASH AAAAAAAAAAAEARAARAAEAEREAREEEE 


= ISSUE SPACE RECORDS COMMAND - VALUE i R35 SETS NUMBER OF RECORDS 
sB1T 15 SETS DIRECTION - 0=FORWARD T=REVERSE 


CSCLP1 


SEQ 135 


| G 11 
































SEQ 136 
| cz Tuy 180, FRONT END PRT C MACRO M1200 29-MAR~83 13:43 PAGE 84-4 | 
f ° ' 
2 < eeeeeeeeeeeereneaeeeeeeceerereeeeagereerenerrererenreerenereeenere | 
5 1 793 145$: #1,R3 :SPACE ONE RECORD PARAMETER | 
101 20 PC’ SPACE *CALL SPACE ROUT INE | 
$412 *BR. IF NO PROBLEM WITH SPACE COMMAND 
38H $20988 TSSR(RS) RI 
0 032410 $ PC, FATCHK Ck F THAN 25 ERRORS 
4 032614 ERRNO, TDSC EXPREC POSITION (SPACE RECORDS) FAILED 
414 104456 TRAP 
a @ & 
4 16344 WORD ESPREC 
75 4264 150$: 
6 426 013708 046102 MOV T26RSZ,R3 sRECORD SIZE 
, é 137 046052 MOV FREE, TO6RB ‘STARTING READ BUFFER ADDRESS 
re J AAAAAEAAAAAAAREREEE ASAE EEEEEAAEAAAAAAAEAARAARAERERARARERAEEREEAERED 
*REREREAD DATA,CVC=1.,ACK COMMAND 
: KAAEAAKATAEATAAEAAAAREAARATEARSEEAAESAEAAASAEAAEAAAAAAAAEAARAARAEAAAAAEAERARAAAARERE 
4 046050 #141001, T26PK3 :REREREAD DATA.CVC=1 ACK COMMAND 
. 165$: #T26PK3,_R “SET UP R4 PACKET ADDRE 
sé ; CORD MSIE IN PACE? 
$ ‘ 
; : 
Sehe TCHK : 
f 104 ,T26W0C ,PKTSSR : 
5506 
ttf, 
g3 | 
; 16 1708: sLOOP IF SELECTED me 
se § FREE .R2 sCURRENT BUFFER ADDRESS TO R2 
; R3,R4 “CURRENT RECORD SIZE 
; #356, .R *FIRST LOCATION IN BUFFER 
5 3 173$: “SET UP 
25 3 ta) RS SCHECK DATA READ (R3=DATA ALSO) 
14 “BR iF Atl IS WELL 
2536 «(011 CRG) RI *RECD 
254 g PEBECTED “DATA 
se 020100 PC FATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 
2546 ERRNO, TZEDTA,EXPREC DATA READ NOT = WRITTEN 
4 5 1 TRAP ion 
See T26DTA | 
13 3 16 F SELECTED — 


104406 
He 





0041 


1 : 
_ RAP CSCLP1 
3>>>>>>>>>>>> END suerest >>>>>>>>>>>> 
L10047: —— 
1 000031 CMP FATFLG,#25. 71S ERROR COUNT AT 25 
arr BLT Bags sBR, IF LESS T 4 
020152 9998 JSR PC, CKDROP sTRY TO DROP THE 


H 11 
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T END PRT C 





a 
: ge es 


016644 
3 020100 
4 
460 
1 
045720 





9 
¢ $14 010332 
? 414 020100 
78 
rt seis 
sew Sr Oe 
716 «104406 
5480 


I 11 
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;+ 
TEST 2, SUBTEST 2 


VERIFIES THAT THE REREAD tbat 
; AND SWB=1 eo ES PROPERLY. T 
;THE SAME AS THAT USED IN SUBTE 
:VERIFIED THAT NDATA STORED BY T 
;SWAPPED BYTES. 













BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
ora c$BSuB 

JSR PCT sSET COMMAND PACKET 

JSR PC,T est *SET UP OTHER COMMAND PACKET 

JSR PC, *T26RT SET UP OTHER COMMAND PACKET 


itTitiiitiiiiiiiitii tire ry 
SISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
PITTI TIT Tiiiiiitiiiiitiiti iii 
JSR PC SOF INIT 3:D0 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
PC ,FATCHK FOR MORE THAN 25 ERRORS 










JSR 












: AND CHECK 
1 ty Hig: OF TSSR REGISTER 
ERRDF ERRNO, SF LERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP a 
- WORD 
-WORD SFIERR 


-WORD SFIMSG 


20S: 

MOV #T26PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
SRAAAAAAAARARHAEAATAELEREREAAAARAARAAAAAARAAARAEAAEEERAEAERREEEEAES 
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PISIITiTiiiiiiiiiiiitiititiiiii 

JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 26$ 3BR ISSUED OK 
J FOR MORE THAN 25 ERRORS 


PC FATCHK ‘INC AND CHECK 
R : SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 





268: CKLOOP sLOOP IF SELECTED 








SEQ 138 


2 a - -<- - 


eee — — — 





Ju 
































SEQ 139 
Co Tuy TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 85-1 | 
TEST : REREADS 

1 fF RAAAAAAAAAAAAAAE RASS HAHA SSAA AA AAAAHAAAAAAAAAAAAAAAAAAAAAAT ELAS 
| ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
5 + eeeeeeeeeetenereeetereereerenegaeereeeeneereerenenererereereeeere | 
7 004737 010434 SR PC REWIND :CALL TAPE REWIND COMMANC | 
103413 acs 3BR F NO PROBLEM | 
16501 900000 MOV TSSRC(RS) RI : SSR 
90 1 MOV #SSR_R2 [SET up EXPECTED TSSR 
91 1 MOV oR “PACKET ADDRESS SET UP 
2498 7 7 020100 JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
7 ERRHRD ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
7hb TRAP SSERHRD 
7 1 
7 i, T26RWN 
? 117 PKTSSR 
5497 30$:  CKLOOP sLOOP IF SELECTED 
754 104406 CSCLPI 
$8 { RARAAAAAASAAAAAAAAAA AEE EAATEAAAAAAAAAEAAAAAAAAAAAAAAAAAAATAAT HANES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
< Seeeeeeeeeeenenaeeeteeeeeeeedeeeenenagnenreeeeneeeeeeeerenenerener 
701 045746 MOV FR+6,R1 :PICK UP XxSTO 
; i 1 MOV a, seESK EXPECTED 
7 000002 BIS mit R2 SY yore BIT IN EXPECTED 
1 CMP : DOE C'D 
; BEQ 36R ) 
0 03277 020100 JSR SINC AND OR MORE THAN 25 ERRORS 
14 ERRHRD ERRNO. TOOBOT .EXPREC *TAPE NOT AT BOT AFTER REWIND 
1 TRAP SSERHRD 
.WORD 21 
“WORD T26B0T 
16344 -WORD EXPREC 
5515 40$:  CKLOOP sLOOP IF SELECTED 
1 O18703 MOV #256 :RECORD SIZE — en 
i 1 ig ite: 046052 MOV $e28- sheep “STARTING WRITE BUFFER ADDRESS 
13 FRARAAAAAARAAERERAAEATAAEAAATRERAAERAERAARARARAAARARARAEAKERERAEERE 
“WRITE DATA,ACK.SWB COMMAND 
Seeheeeeeeneanet eeeeeeaeeeeeeeeeeeeteeteeteneeneneeeereeeeeneenee 





010003 - 7 _ateas sWRITE DATA,ACK,SWB C 


OMMAND 
[SET UP R4 WITH PACKET ADDRESS 





: 

GabSZ GLEBE S08 
ee He aie 
3 4501 0000 





TSSRCRS) RI 





yee ery 
= wi 
ocoo 


aa EERE ¥ 
Soooooooooo0[0Oo 


x 


we 
w 


yrny TUSO FRONT END PRT C 
: REREADS 


o wr 
SOOCOOOOCOOOCOO 
peeteetetertesteet eater retest este 


000200 MOV 


1 

is 106437 

104 005014 

1 011700 

11 75$: CKLOOP 
110 1 

11 7 TST 

114 0227 000414 CMP 

1 346 6BNE 

1 80S: CKLOOP 
1 104406 

1 120$: 


#SSR 


R1 gre 


75 
PC ,FATCHK 


(R3)+ 


k 11 
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R2 


ERRSOFT ERRNO, WRTERR ,PKTSSR 


pe. -Rs 


SEQ 140 





sLOOP IF SELECTED 


sBUMP RECORD SIZE 
SEND OF RECORD YET 
“BR, IF MORE RECORDS TO WRITE 
“LOOP IF SELECTED 








SRAAAAAARAEAEAERAAAEEEERARERESEAAEAAREAAERAARAAEEEAEERAERRERERERARES 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
SRAEAAAAAAAASAARAAAEAERSAEAASAAEAEERAEAAEEAAAEAAAEREERERRAAARERAEREE 


PC REWIND 


124 737 010434 JSR 

ie a e 
138 913702 00200 mov 

1 1 MOV 

1 7 020100 JSR 

130 1 woke 
33 

1 4 

1 117 

1 130$: CKLOOP 
1 104406 


TSSRC(R 
SR 


PC-FAT 


ERRNO, T26RWN,PKTSSR 


5) R1 


R2 


CHK 


sCALL TAPE REWIND COMMAND 
; F NO PROBLEM 


INC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 





sLOOP IF SELECTED 


TRAP 


FRAAAAAAEAAAAAARAARERETAAAEEEEAEEAEEAAEEREEERERAERERAEAEAAERERERERES 


CSCLP1 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


€ 
SRARAREAAAAAEEAAAAEAAAARAREREEAAEAAAEKEAEAERAEAAEAARAREREAEREREEEENE 


1 1 045746 MOV 
1 1 MOV 
1 000002 BIS 
1 1 CMP 
Z BEQ 
020100 JSR 

ERRHRD 


T26BFR 
#eitt, 
R1,R2 


PC FATCHK 
ERRNO, T26B0T ,EXPREC 





+6,R1 
R2 





sPICK UP xSTO 
:SET UP EXPECTED 
°SET N EXPECTED 


RHRD 
T26BO0T 


| 
CSCLP1 
GET T 
?SET UP EXPECTED TSSR 
*PACKET ADDRESS SET UP 
- WORD | 


CZTUYAO TUSO FRONT END PRT C 
TEST 2: REREADS 


12 016344 
| 5 FEET ox 
16 013739 000400 







i“ 10120 


‘fe 
: - 





ee 008078 


im ie ne 


003072 
000400 


1 11 
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046102 


046952 


046050 


140$: §CKLOOP 


MOV #256. , T26RSZ 


- WORD 
TRAP 


EXPREC 


LOOP IF SELECTED 
CSCLP1 


sSET UP RECORD SIZE 


£ EER AAAAEAEAAAAAAAAEASA SAS TA AAA LAREEAAAAAAERAAAARAAAAAAARAAAAT AANA ES 


‘ISSUE SPACE RECORDS COMMAND - VALUE i R3 ane yence NUMBER OF RECORDS 


:B1T 15 SETS DIRECTION - O=FORWARD 


+ eeeeeeeeeeeeeeeeeeeeeeeeeaeereeeeeneeakareerenereneneeeererecerens 


145$: MOV #1,R3 

JSR PC’ SPACE 

BCS 

MOV TSSRCRS) RI 

MOV . 

JSR PC, FATCHK 

ERRHRD ERRNO, T26SC,EXPREC 
150$: 


MOV T26RSZ,R3 
MOV FREE, T26RB 


SPACE ONE RECORD PARAMETER 
SCALL SPACE ROUTINE 
sBR teem PROBLEM WITH SPACE COMMAND 
SSET UP git Me TSSR 
INC AND CHECK FOR 25 ERRORS 
sPOSITION (SPACE pean nee 











T26SC 
EXPREC 


sRECORD SIZE 
ZSTARTING READ BUFFER ADDRESS 


RARER EEAAAEEAERAAAEEREREEREREEERERARAREAAERAEEREEEREEEEEREEREREREE 


SREREAD DATA, CVC=1,ACK,SWB COMMAND 


° 
SRAAAERAAEAARAAAARERAREAEREEEERERAAAERERAAERAAAAEAAERARERARERAREREREEY 


MOV #151001 , T26PK3 
#T & 


165$: MOV 
MOV R3,126SZ 
MOV R64. TSDB(RS) 
JSR PC “WA 
MOV TSSR(RS) RI 
BEQ 176$ 
JSR PC,FATCH 
ERRHRD ERRNO, TDeuDC. PKTSSR 
170$: CKLOOP 
MOV FREE ,R2 
MOV R3_RE 
SUB #256. .R4 
173$: ADD R2_R4 
CMP (R4) ,R3 
BEO 180$ 
MOV (R4) RI 


sREREAD DATA, CVC=1,ACK,SWB COMMAND 
“SET UP R4 WITH PACKET ADDRESS 


7SET UP RECORD. SIZE IN PACKET 
s ISSUE C 


;WAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
XPECTED 









CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER STRAP DATA 


T26WDC 
PKTSSR 


CSCLP1 





sLOOP IF SELECTED 

sCURRENT BUFFER ADDRESS 10 AR2 
:CURRENT RECORD $1Z 

sFIRST LOCATION IN BUFFER 

7SET UP POIN 

‘one Ie AL READ er =DATA ALSO) 


{REED DA 














SEQ 141 





TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 85-4 
: REREADS 


Hootie 020100 


FATCHK 
ERRNO, T26DTA, EXPREC 


; 002170 000031 


FOR 














aoe 25 ERRORS 
TRAP 
~ WORD 


on 
«WORD T26DTA 
-WORD EXPREC 
CSCLP1 


LOOP IF SELECTED 


sBUMP TO NEXT LOCATION 
;CORRECT RECORDS SIZE VALUE 
ORD YET 









YET 
RECORDS TO READ 
F SELECTED 


TRAP CSCLP1 
:>>>>>>>>>>>> END U10050: >>>>>>>>>>>> 


31S ERROR COUNT A ie 
4 IF 333] Hs Kr: 


N11 

r SEQ 143 
CZTUYAQ TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 86 
| 
TEST 2, SUBTEST 3 : | 
VERIFIES THAT THE REREAD PREVI 1 | 
(READ REVERSE, SPACE FORWARD) AND 
THE TAPE IS FIRST RE 


+ 








* PROPERLY. 

WITH A SERIES OF TEST RECORDS VAR 

DATA CONTENT; THE FIRST FOUR BYTES OF EACH RE 
ONTAIN ITS RECORD NUMBER (INDICATING POSITI 

* TAPE). THE TAPE 3s HEN REWOUND AGAIN. FOR EACH 
;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
AND THE RESULTS CHECKED 





ead 
e 












A READ FORWARD COMMAND IS bas ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WA 
POSITIONED PROPERLY AFTER THE "REREAD PREVIOUS 
C (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
tN AT THE START OF THE TEST RECORD). THE 
READ F LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
:TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
3 EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


ee @e Se Ge Ge Ge Ge Ge Se Ge Ge Be Be Se Se Ge Ge Ge Se a” oa.” a 
end 
z 








6 BGNSUB 2>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
1044 $ os vy C$BSUB 
94 7 JSR PC, T26REST :SET COMMAND PACKET 
9 5037 ‘ rs CLR T26CNT “CLEAR TAPE RECORD COUNTER 
? 0732 JSR PC, T26RT *SET UP OTHER COMMAND PACKET 
500 7 ; JSR PC T26RT “SET UP OTHER COMMAND PACKET 
SRAAARERREEEREEREERAEEEREEEREEEEEERERERREREREEEREAEREERAEREREE RENEE 
: “ISSUE CONTROLLER “‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
eTiiTiiittiiiitiiiitiiti iii 
7? 016644 JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
¢ BCS 20$ :BR IF INIT WAS OK 
020100 JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
711 1 MOV R “CONTENTS OF TSSR REGISTER 
712 ERRDF ERRNO,SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT 


Ry Si 


$713 208: 


CZTUYAO TUBO FRONT END PRT C 
TEST 2: REREADS 


714 
ay 033530 012704 045720 


71 
71 
71 


ee 010332 


WMEWwN— 


5 te 020100 
57 
, rm 
c 
5731 
104406 
5 
7 
7 010434 
i : 
z w00200 
744 020100 
748 ; 
gus 
1 11300 
5749 19 
1 104406 
rl 
7 
7 
7 
13701 0465746 
; 
? 020100 
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MOV #T26PACKET ,R4 


SEQ 1 


; SUBROUTINE NEEDS PACKET ADDRESS 


fF RAAAEAAAEEAEEAEAA AAS AAT EEA SAAT A AAA AAA RARER AAAAAAAAKAAAAAAAARARAAEE 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


© 
REA AAAAAAAAAEEEEEAAAAEAE EAE AE RARARAAAAEAAAAAAAAAAAAAAAAARAAAARAAEE 


JSR PC ,WRTCHR 
BCS 
JSR PC ,FATCHK 
MOV 


R 
ERRHRD ERRNO, WRTMSG, SFIMSG 


26S: CKLOOP 


sISSUE WRITE CHARACTERISTICS 
“BR, IF COMMAND 
SINC AND C 









ISSUED OK 
ote FOR MORE THAN 25 ERRORS 
7SAVE CONTENTS OF TSS 
3WRITE CHARACTERISTISC FAILED 





" RHRD 
«WORD 

-WORD WRTMSG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRAAAAAAAAAAAEAEAEAEEEE AE TEEEEEERARAERAEAAAAERARAAAAAERERERAEREREREREE 


? ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
SRRAAAAAAERERAEEREAAEEEEEEEAEEEEEAREKAARAEEAREAAERERAEERAEAEERERAREREE 


PC REWIND 
TSSRCRS) RI 
SR,R2 


OR 
PC FATCHK 
ERRNO, TOORUN, PKTSSR 





30$: CKLOOP 


+ CALL Lee a 


SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 


SRERAAAAAEAAAARAAEEEEEEEEERAEAEAAAAEAARAAAEAAAAEREREERERRAEARREE ERE 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


s 
SRRERAAAAAAAAAARAETEAAEAERAEAERERERAEREARARARAEARAERARERE RARE AREEERE 


MOV T26BFR+6,R1 
MOV R 

BIS #BiTl .R2 
CMP R1R2 





JSR 
ERRHRD Ch RNO. TeeROT. EXPREC 


AND CHECK FOR MORE THAN 25 ERRORS 
“REWIND NOT ACCEPTED 
TRAP ¢ RHRD 
WORD 
“WORD T2ORWN 
"WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
:PICK UP XSTO 
“SET UP EXPECTED 
*SET BOT BIT IN EXPECTED 
“DOES EXP = REC'D 
“BR, IF EQUAL (Ok) 
“INC AND CHECK FOR MORE THAN 25 ERRORS 
“TAPE NOT AT BOT AFTER REWIND 


filer 


CZTUYAO TUBO FRONT END PRT C 
T : REREADS 


Es’ 2 
016344 


1044 
at4708 


5767 


: 


018704 


pe 
as 





0030 


140005 
046050 


0372 
7 

1 

6 

17120 

00 


020100 


000414 


046076 


=~ eee ee 















C 12 
SEQ 145 
MACRO M1200 29-MAR-83 13:43 PAGE 86-2 | C 
.WORD EXPREC 
40$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
MOV #256. ,R3 :RECORD SIZE 
046052 MOV FREE, T26RB [STARTING WRITE BUFFER ADDRESS 
SARA AAAAAAAAAAAAA AREAS SERA AAA AAAAEAAAAAARAAAAAAAARAAARAAAAAAERERE 
“WRITE DATA,CVC=1,ACK COMMAND 
: SEAATAAAATSEARAARAAATAAAAESTEAATAEATEAAAAAAEARAAAAAAAARKAAAAAEAAARARAARAAAREE | 
046050 MOV #140005, T26PK3 :WRITE DATA,CVC=1,ACK COMMAND 
“ MOV #T26PK3,R4 “SET UP R4 WITH PACKET ADDRESS 
"MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
JSR p -FILLAER ‘FILL MEMORY W! SIZE 
MOV R3.126S2Z “SET 
147152 MOV T26CNT ,AFREE “MOVE TAPE RECORD 
046076 ADD #1, T26CNT > NUMBE REC 
MOV R4. TSDB(RS) [ISSUE COMMAND 
JSR PC WAITF : F T 
MOV TSSR(RS) RI : C 
MOV #SSR,_R2 F PECTED 
CAP R1 RO ; 
JSR PC ,FATCHK ; 5 ERRORS 
; THE 
: CKED 
: TUXA 
ERRSOFT ERRNO, WRTERR,PKTSSR : DATA 
CSERSOFT 
WORD 22 
WORD WRTE 
PKTSSR 
75$:  CKLOOP sLOOP IF SELECTED 
CSCLP1 
TST (R3)¢ :BUMP THE RECORD SIZE 
CMP #268. .R3 [MAXIMUM SIZE YET 
BEQ 1 7BR, IF AT END OF WRITE SEQUENCE 
i BR 65$ “WRITE MORE RECORDS 
"CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 
> SERRE STAASAEATAAARATAEAAAAESTSEREAAKAARAARARARAAAAAAEARARAAREAARAEEAEAREEE 
*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
<eveeeeens eeeeeeeeeeeaeeeeeeeeereaeeeneeeeneeeeananeagarereeerienee 
PC REWIND 
TSSR(RS) RI 
é SR R2 
PC FATCH 





TCHK 
ERRNO, T26RWN, PKTSSR 











D 12 
TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 86-3 
: REREADS 


1 
34 
sii 
u 130$: CKLOOP sLOOP IF SELECTED 
104406 


fs AAAAAAAAEAAAAAAEAAAEAAAS KS AEE AAAAEAAAAAATARAAAAAAAAAAAAAAAAAEKAAEE 


“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
J RRAAAAAAAAAAAR AAA EASA AE SARE RE AAAAAAEAAAAAAAERAAAAAAAAAAAAAAAEAEE 


CZTUY 
TEST 















13701 045746 T26BFR+6,R1 :PICK UP XSTO 
101 R1_R ‘SET UP EXPECTED 
000002 #BiT1,R2 *SET BOT BIT IN EXPECTED 
1 R1,R2- “DOES EXP = REC'D 
1406 1405 | “BR, IF EQUAL (OK) 
020100 TCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
‘ ERRNO. TOOBOT .EXPREC ‘TAPE NOT AT BOT AFTER REWIND y 
74 tose ESPReC 
7 140$:  CKLOOP sLOOP IF SELECTED 
76 104406 TRAP  CSCLP1 


ee eee 


= ISSUE SPACE RECORDS COMMAND - VALUE IN Re R3 yonee NUMBER OF RECORDS 
3B1T 15 SETS DIRECTION - O=FORWARD VERSE 


aga Sage emacs. pg mene 


1 12 ; 1 MOV sSPACE 1 RECORD FORWARD 
: 6 7 10140 fa a CALL 
114 189 : ” 046052 1508: MOV 


i aac > SPACE 
56. 8 “RECORD SIZ 
SRAAAAAAAAAAAAERAEEAAEREREEAAEEAAARAERARAAARAERAEAEARARERERAARERERER 


E 
FREE, ft “STARTING READ BUFFER ADDRESS 
*REREAD DATA, CVC=1,ACK, OPP COMMAND 


> 
SRARAAAAAEAAEEAEREAREAAAAAEEAEAEEAAAERAARAEAAAAAEAAAREEREREERAEERERE 












1 12737 161 } 046050 #1 1001.12 ,T26PK3 sREREAD DATA, CVC=1 ACK. OPP COMMAND 

1 ’ 165$: oiStpn SET UP R4 WITH PACKET ADDRESS 

1 10337 45 eT ae :SET UP RECORD MSZ iM PACKET 

140 3 R4.TSOB(RS) ; 

1 171 PC WAI ; SSR TO SET 

130 TSSR(R5) RI ‘ CONTENTS 

1 #SSR,_R 3 TED 

1 1 CMP R1_.Re : 

1 4 Q 1705 : 

020100 JSR TCHK : FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO. T26RRG,PKTSSR : T AFTER REREAD DATA 

170 104456 TRAP CSERHRD 


To 


giyvay 18 y il END PRT C 





eBags 
aa5798 


000001 046076 


04608 046050 
; 56 


1 
171 


020100 


046076 


020100 


000412 





E i2 
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179$: 


CKLOOP 
TST 
AD 


(R3)+ 


#1,T 





N 
Peer TT eTeT TTT TT TTTTCTTITITITITITITITITiTTLitiTliiiii tL 


seeee eee #140001 .T26K3 READ DATA. C¥C=1, ACK COMM 


ZREAD DATA, CVC=1, ACK COMMAND 


195$: 


197$: 


200S: 








#140001, T26PK3 
oer ee 
R4. TSDBC(RS) 


PC .WAITF 

TSSRCRS) RI 

#SSR_R2 
1.R2 


195$ 
PC. FATCHK 
ERRNO, RDERR,PKTSSR 






i 


PC . 
ERRNO, T26WNG,EXPREC 





a 


FATFLG,#25. 
999 
PC ,CKDROP 

























71S ot ~ MT = 
BR, IF L HAN 2 
sTRY TO DROP THE UNIT 


SEQ a7 
| 
- WORD 
. WORD $68 ORG 
WORD 
:LOOP IF SELECTED 
AP =—s-« CSCLP1 
BUMP RECORD SIZE 
‘BUMP TAPE RECORD COUNTER 
READ DATA, CVC=1 ACK COMMAND 
“SET SIZE into PACKE 
TISSUE RE 
sWAIT ABsR 
sPICK 
sSET 
$ OK 
WORD 
WORD RDERR 
:LOOP IF SELECTED 
TRAP CSCLP1 
FIRST WORD FROM READ BUFFER 
iSET UP EXPECTED 
31S T CORRECT 
sKEEP TION OK 
2 INC OR MORE THAN 25 ERRORS 
s TAPE ORRECT 
TRAP S 
0 
EXPREC 
TRAP CSCLP1 
sAT MAX SIZE YET 
“BR, IF AT END OF THE SUBTEST 
“KEEP GOING MORE RECORDS 
[>>>>>>>>>>>> END UiB0St: >>>>>>>>>>>> 
CSESUB 


ai ws 





37 
319 
9 


© 
Ms 


MUMIA 
OOOOO0DO 





St cs PT ET NS 


iC 


- 
tr 


034414 012704 


ne 


T END PRT C 


ai 


016644 
020100 


045720 


010332 
020100 
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MACRO M1200 29-MAR-83 13:43 PAGE 87 


+ 
TEST 2, SUBTEST 4 


SVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
: AND SWB=1 OPERA TES PROPERLY. THE qEST SEQUENCE 1S 
T iS USED IN SUBTEST 

genau CONTAINS 





BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
C$B8SUB 








JSR PC T26REST sSET COMMAND PACKET 
CLR &CNT [CLEAR TAPE RECORD COUNTER 
JSR PC, - TRGRTR ?SET UP OTHER COMMAND PACKET 
JSR PC-T *SET UP OTHER COMMAND PACKET 
f RAAAAAAAAAAEAERAAEEEAEAAAAAERERAAAAEARERAAAARAAAAARERERAAAAEAAAERERS 
TISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

‘keeeeeteeeeeeeeeeeeeteeeeeeeteakeeenareareeanerengrerenenerereeter 


JSR Tad INIT 2b0 setae 17s ON CONTROLLER 
BC sBR IF INIT WAS OK 
a oF ATCHK FOR MORE THAN 25 ERRORS 
















3 INC_AND CHECK 
R SCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS | ane 


20S: 

MOV #T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
FAA AAEAAAAAAEEERERAAEREEEAARERAAAAAAAAERARAEAAEAEAEEAARAERARAERERES 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 
ITIL i tii iiititititii iii rrr 

JSR gmtcu ; ISSUE WRITE CHARACTERISTICS 


acs ne} IF ISSUED OK 
JSR SFATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV “SAVE CONTENTS OF T 


°R1 
ERRHRD ERRNO,WRTMSG.SFIMSG “WRITE CHARACTERISTISC FAILED 






SEQ 146 


ee oo 





ZTUYAO TUBO FRONT END PRT C 
EST 2: REREADS 


rye seek 106606 


C 
T 








qd fen 010434 


r: iF 1 045746 
1 : 000002 
& 
737 020100 


& 
es os 
544 197 003072 046052 


Sara aca oso 


Gost? 920872 
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G 12 


26$: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


{AAAS AAAAAAAAAAAA SSAA S AAA AE KAA AAAAAAAAAAAARAAEAAAAALTAAAATARAAAENE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


’ 
£ AAAS AAAAAAAAAAAA AREAS S STATA AAAAAAAAAAAAAAAAAEAAAAAAAAARARAAAAAAERE 


JSR PC REWIND 3 CALL ~— REWIND COMMAND 
BCS sBR, IF NO PROBLEM 
MOV TSSRCR5S) ,R1 ; 

ROR Re 








MOV 
ma 
ERRHRD pc eEAT SOORUN, PKTSSR 


FOR MORE THAN 25 ERRORS 
T § RHRD 


cK 
SREWIND NOT ACCEPTED 






T 
PKTSSR 


30$: CKLOOP 
CSCLP1 


sLOOP IF SELECTED 





SRRAAAAAAAAAAAERAAAAAAEAEREAEEAAEAAAAAEAAAAAAAAEAAAAERERAAAEAERERERER 


3READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


* 
Ss RRRAAEAEEAAEAAAEHEAEAASEAAAAEAEAEAEEAAEAEEAERERRERAAAAEEREREREREEE 


T26BFR+6,R1 sPICK UP XxSTO 

R1LR T UP EXPECTED 

#BiTi.R2 T BOT BIT_ IN, EXPECTED 
R1_R2 = REC'D 


JSR PC ,FATCHK 
ERRHRD ERRNO, oeeBOT. EXPREC 















yt 
CK FOR MORE THAN 25 ERRORS 
NOT AT BOT AFTER REWIND 





3B 
“WORD T26B0T 
‘ EXPREC 
40$:  CKLOOP sLOOP IF SELECTED 
TRAP CS$CLP1 
MOV #256.,R sRECORD SIZE 
MOV FREE, ‘Sere “STARTING WRITE BUFFER ADDRESS 





sRERAAESAAATAAAAAAREAEAEAESAELAEAAAAAEAARATAARERAAAAAAELERAAAEAEERE 


SWRITE DATA,CVC=1,ACK COMMAND 


‘ 
SRRAAESRAAAASAAAA SAAS SA AAAAAEASAAAEEERAEAAEAAAAAAAAAAREREREREREREEERE 





#14000 -T26PK3 SWRITE DATA,CVC=1.ACK COMMAND 

_ neg “SET UP R4 WITH PACKET ADDRESS 
; °SET PATTERN IN CORRECT REGISTER 

*FILL MEMORY WITH RECORD SIZE 


5 FILLAER 
re T :SET UP RECORD SIZE IN PACKET 





1 





045746 
000002 


# 12 
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T26CMT OF REE 
R64. TSDBCRS) 
PC-WAITF 
TSSR(RS) RI 
#SSR_R2 
1,Re 


75 
PC ,FATCHK 





ERRSOFT ERRNO,WRTERR ,PKTSSR 





75$: 
(R3)+ 
# e oR3 
ight 
120$: 





T26CNT 










a. TO BUFFER 
XT RECORD 





READY FOR 


eve * 
ARSOZ DOM SL 
42— +“ 


PKTSSR 
CSCLP1 


sLOOP IF SELECTED 


sBUMP THE RECORD SIZE 

RAKIM $12 

AT END ‘Or WRITE SEQUENCE 
Cnite. MORE RECORDS 


set RECORD COUNTER BACK TO ZERO 


TRAP 








s PASSES AASAAAAEEAAS TSE AAEAAAAAAAAEAAAAAAAAAEAAARAARARERAAAAERERARE 


* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


* 
Ss RAAAAAAAAAASAAA AAA AET ATES TAAAERAAAARERAAERERERAEAAARAAREAAAAARERERE 


REWIND 
tae RI 
#SSR 


RO Re. 
4 FATCHK 






130$: 


CKLOOP 


RRND. TOGRUN, PKTSSR 


sCALL TAPE REWIND COMMAND 
zBRe IF NO PROBLEM 


sGET TSSR 
;SET UP EXPECTED TSSR 
;PACKET ADDRESS SET 


















INC AND CHECK 
;REWIND NOT ACCEPTED 


UP 
K FOR MORE THAN 25 ERRORS 
T 3 RHRD 





T 
PKTSSR 


sLOOP IF SELECTED 
CSCLP1 


TRAP 


SARA AAAAAAAAAAAAAAAAATATEAAEREAAAEAAERARERERAEAAAAAEREREREAAAEEEES 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


” 
SRRAAAASRERAAAAAASAATA AAAS SAAAEAAAAKAAARERAAAAEAEAAAAKAAAAKAEAAAANES 





Toeeensé. oR1 


Ris a2 





CMP 
BEQ 


seek UP iy ust? 


PECTED 
ist Bor’ BIT IN EXPECTED 
;DOES Pr = REC'D 
IF EQUAL (OK) 


SEQ 150 


I 12 





SEQ 151 








= Ty80 0. FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 87-3 
746 004737 020100 JSR PC .FATCHK zINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26BOT .EXPREC :TAPE NOT AT BOT AFTER REWIND 
EXPREC 
140$: CKLOOP sLOOP If SELECTED 
104406 TRAP  CSCLP1 


"“Seeapescth: ops att eimai i ats i laa natalia iain 


‘ISSUE SPACE RECORDS COMMAND - VALUE i" RS SETS NUMBER OF RECORDS 
3B1T 15 SETS DIRECTION - O=FORWARD T=REVERSE 


< eneeeengenneneeaneeererereeeereeeeeececereneneeeereneeeeneeeeceeet 


on es ad heel 


:ISSue SPACE COMMAND 

“STARTING READ BUFFER ADDRESS 
SRAAAAAAAAAAAAAAEAAEERASERESAAEAAAAAARAEAARAAERAEAAEAAAAEEAARAAEENEEE 
*REREAD DATA,CVC=1,ACK, OPP COMMAND 


: 
fs RAAAAAAAAATAAAAAAEAAEEAAEEREREEAAEAERAAERAERERAREEERAERAEREERERRES 






















1006 012737 171001 046050 MOV sober T26PKS :REREAD DATA-CVC=1.ACK, OPP. COMMAND 

1014 01 0 165$: MOV ; WITH PACKET ADDRESS 
1020 7 MOV RS, tae : UP RECORD SIZE IN PACKET 
+ > MOV ae ° 
08 171 JSR Pc WA ; 
1034 1 mov TSSRCRS) RY ; 
104( MOV SR ,R2 ; 
cet nic} ; 
i05¢ 020100 GSR PC, FATCHK ; 
1056 ‘ ERRHRD ERRNO,T26RRF.PKTSSR =; 
( 
506C 
06< et 

6113 03506 1708:  CKLOOP :LOOP IF SELECTED 
064 1044 TRAP = CSCLP1 

114 035066 166000 MOV ;FIRST WORD FROM FER 

115 03507 046076 MOV E 

116 939076 SWAB 

1 ne CMP ° 

11 iF BEQ 

119 Ossie 020100 JSR PC FATCHK 

1 ERRHRD ERRNO, T26WNG,EXPREC 
11 TRAP 
i WORD 

6124 129 ' 190$:  CKLOOP an 
120 104406 





mr mm — 


J 12 















































SEQ 152 
CZTUYAQ TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 87-4 
TEST : REREADS 
125 0351 TST (R3)+ sNEXT RECORD SIZE 
932154 903783 000001 046076 ADD #1, T26CNT ‘BUMP TAPE RECORD COUNTER 
1 {AAAASAAAAAAAA AAAS AAAS AAA AAS ST AARARAARAAAAAAAAKAAAAAAAAHAARAKAANE 
1 ; 
“READ DATA, CVC=1, ACK COMMAND 
: a ee | 
1 1 237 140001 046050 MOV #140001, T26PK3 sREAD DATA fore 1 ACK COMMAND | 
1 103 MOV 3SET SIZE into | 
1 1 1 MOV Ré. rSpe%Rs) : | 
1 171 JSR PC-WAITF ; | 
1 1 MOV TSERCRS) RI : 
1 MOV #SSR_R2 : 
1 1 CMP 1,.RO ; 
L737 020100 mr 2158 cue : 
1 i ERRHRD ERRNO. SOERDF PKTSSR : 
sets woRD fT 
2158: sLOOP IF SELECTED 
CSCLP1 
ioe 14 E.R :FIRST WORD FROM READ BUFFER 
702 046076 Ent R2 *SET UP EXPEC TE 
1 R2 ‘1S TAPE POSITION CORRECT 
1g is “KEEP ON OK 
020100 FATCHK INC MORE THAN 25 ERRORS 
RRNO, TZ6WNG ,EXPREC * TAPE ORRECT 
sie TRAP ¢ RHAD 
16s .WORD 26 
a -WORD  T26WNG 
1 -WORD EXPREC 
217$:  CKLOOP 
TRAP  CSCLP1 
° 000410 sAT MAX SIZE YET 
401 é “BR, If AT END OF THE SUBTEST 
4 asin “KEEP GOING MORE RECORDS 
‘ *>>>>>>>>>>>>_ END tee” >>>>>>>>>>>> 
1 3 CSESUB 
002170 000031 CMP FATFLG,#25. :1S ERROR RROR COUNT A Mt ui 
4 BLT 999$ “BR, IF LESS 
020152 JSR PC ,CKDROP >TRY TO bROP T 
999$: 
| 





K 12 





























SRAAAAAAAEEAAAERARATEA EASES RE SAEREAERARAAEARAEAEAAERERERAREAAERERERES 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
SRARSAAAAAALAAAAAAAASAASAETAAAAAERAEAAAAAAARAAAERERATAAAAAEEAAEEERS 














737 010332 PC .WRTCHR sISSUE WRITE CHARACTERISTICS 
7 ac BR, I SSUED OK 
7 020100 SR PC .FATCHK =INC AND CHECK FOR MORE THAN 25 ERRORS 
“SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRIMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 


: 34 

: ° . 268 BR, IF COMMAND I 
wv ROLRI S OF T 
6220 26$:  CKLOOP sLOOP IF SELECTED 


sm 


WRTMSG 
SF IMSG 








sit 3 


SEQ 153 
CZTUYAQ TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 88 
TEST : REREADS 
$168 3* 
1 ; 
6170 ‘TEST 2, SUBTEST 5 
617 [VERIFIES THAT A REREAD | 
1 “RECORD LONGER THAN THE 
17 “TAPE STATUS ALERT TERM | 
17 “LONG (RLL) BIT ser. RE | 
eif8 “STATES OF OPP (0 AND 
17 : 
ras: g 
1 = 
1 BGNSUB $>>>>>>>>>>>> at ied >>>>>>>>>>>> 
1 “TRAP —s CSBSUB 
1 2 JSR PC,T T sSET COMMAND PACKET 
185 7 7 3 JSR PC. T26RT ‘SET UP OTHER COMMAND PACKET 
1 7 050774 JSR PC T26RT *SET UP OTHER COMMAND PACKET 
FRARERAAAAAAAAEAAAEAESEEEAAEEEERAAAEAEEAEREAERAERAREAEAAAAAAAAEEREE 
190 ; ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
He PIT ETITT ttt iiiiitiitiiiiiiiiiiiiiiii iii errr 
1 737 016644 JSR SOF INIT :D0 INITIALIZE ON CONTROLLER 
195 3407 5 “BR IF INIT WAS OK 
7 020100 JSR BC» ATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
1 R1 “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG “FATAL ERROR TSSR WAS NOT OK 
104455 TRAP CSERDF 
386 d 24 
-WORD SFIERR 
666 .WORD SFIMSG 
20S: 
§ 035330 012704 045720 MOV #T26PACKET 4 sSUBROUTINE NEEDS PACKET ADDRESS 
j 


035360 104406 


WAU UW 


18406 


1 465 





yap TUBO FRONT END PRT C 
T 2: REREADS 


010434 


000000 
000200 


020100 


045746 
000002 


020100 
005072 


048050 


Be rs 


L 12 


ae —— 
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046052 


046050 


TRAP 


sAAAAAAAAAAAAAAASAAKE LAT ATA AAT AAAAKTAAA TAKARA ARAAAATAAAKA AKA AAA AEE 


* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
fs RAAAAAAAAAAAAAAARARAAAAA SETAE A HAARAHAARAAARAARARARAAAAAAAKAAAAAAAAES 


CSCLP1 
















PC REWIND 3 CALL ue REWIND COMMAND 
: NO PROBLEM 
TSSRCRS) ,R1 
#SSR ,R2 ;SET UP EXPECTED TSSR 
oR SPACKET ADDRESS 
PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


rh ae 





ERRNO, TZ6RWN,PKTSSR SREWIND NOT ACCEPTED 








WORD 
~ WORD 
; ;LOOP IF SELECTED 
. TRAP 


*RREAAAAAAEAEAAAARAAEEAEEAAAEAAAAAAAAAAAAAAARAARAEAAERARAAEREREAEEEEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


S cecececnnceccecnnceeeececeeenecnenqeneqseneneeneneeecnceceececeees 





T26RWN 
PKTSSR 
CSCLP1 


30$: 


CKLOOP 








T26BFR*6,R1 :PICK UP XSTO 
R1_R *SET UP EXPECTED 
#BiT1,R2 :SET BOT BIT IN. EXPECTED 
R1,R2 “DOES EXP = REC'D 
cos “BR, IF EQUAL (0k) 
FATCHK : tue AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO. T26B0T , EXPREC ":PE NOT AT BOT AFTER REWIND 
TRAP seme 
WORD 
“WORD 
“WORD bespe! 
40$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
MOV #512. ,R3 :RECORD SIZE 
MOV FREE, T26RB “STARTING WRITE BUFFER ADDRESS 


{SRA AAAAAEAERERAAAAEAEEAAAERERAREREAAERAAAERERERERERAEEEAERERAEAEERS 


“WRITE DATA,CVC=1,ACK COMMAND 


2 
sTRAARAAAAAAAAAAEAAAAAATETERESRERAAEAAEREAAAAE AERA LRERAAAARATEAAEAEE 





65$: 





HaePKsRe 


R3,126SZ 
R4,TSDBCRS) 


PC WA 
TSSR(RS) RI 





sWRITE DATA, CVC=1,ACK COMMAND 
*SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

GET TSSR CONTENTS 


SEQ 154 


o—- 


— <<5 -—--— — 


CETUWAD Te y - 2 — END PRT C 


1m ox 


011700 
ie 
003072 





FL 1 045746 
: 010000 
4 

i. 737 020100 


6308 
18 
14 
19 
19 


M12 
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MOV #SSR,R2 
CMP R1_RO 
BEQ 75 
JSR PC, FATCHK 
ERRSOFT ERRNO,WRTERR,PKTSSR 
75$:  CKLOOP 
DEC R3 
046052 MOV FREE, T26RB 





sLOOP IF SELECTED 


CSCLP1 
sSET RECORD SIZE TO 511. 
SSTARTING READ BUFFER ADDRESS 


SERRAAAAAAAEAERARAEAEREREREREEERERAERAAEAAAAEAAAERARAAAERERAAREREREEE 


*REREAD DATA, CVC=1,ACK,OPP=1 COMMAND 


: 
SRERAAAEAAAAAEEARAAEEEEEEEEEEEEEREERAARERAAEEREEEAEREEEAAAREREREEEE 












MOV #161001, T26PK3 
165$: MOV 6PK3.R4 

MOV R3, 12652 

MOV aie TSDB(RS) 

JSR 

MOV TSSR(RS 

MOV Were brie. R2 

CMP R1_R2 

eae 

ERRHRD ERRNO Te TOSTRL .PRTSSR 
170$: CKLOOP 


:REREAD DATA, CVC=1,ACK,OPP=1 COMMAND 
“SET UP R4 WITH PACKET ADDRESS 
“SET UP RECORD SIZE IN PACKET 


21S COMMAND 
sWAIT FOR SSR_TO SET 









;GET TSSR CONTENTS 
eRe UP EXPECTED 
EQUAL 


ARE THEY 
IF OK 
AND CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER re DATA 





- WORD 4 

-WORD T26TRL 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRERAAAAAAARAAAREAAAERAEAEEARELAAAAERAERARERARERARERAAEAAERERRAEEEERE 


“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


: 
SRAAAAAAARAEARERAAARELAEAAEEAEEAAAAKEEARAREREEEEEEAEAEEERERAEEREERED 


MOV T26BER*6, R1 

MOV Re 

BIS He 2,R2 

CMP 

oo ets 

ERRHRD ERRNO, TDELON. EXPREC 


GET MESSAGE BUFFER 
SET sf EXPECTED 
sSET THE RLL BIT IN EXPECTED 
Y EQUAL 

EQUAL (ALL IS WELL) 






,_ 


“WORD T26LON 


SEQ 155 


N 12 
gry) a a. + a END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 88-3 


om .WORD EXPREC 
6326 180$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
7 900777 MOV #511. R3 :SET RECORD SIZE 
72 046052 MOV E.T26RB ‘STARTING READ BUFFER ADDRESS 





"ype ect: gna ta taal dieiaiaea nmi aie 


; REREAD DATA, CVC=1,ACK COMMAND 


POPPPPTTTTOTTCTTOTTTTT TTT TT TIT TTT TTT TTT TTT ttt ttt titi itil 


—-_ 








PAAAAAAAAAAAAAAAAAAA 








6 
57 12737 141001 046050 MOV #141001, T26PK3 ;REREAD DATA,CVC=1,ACK COMMAND 
5712 0127 6050 365$: #T26PK3,_R *SET UP R4 WITH PACKET ADDRESS 
7 10337 56 45 ear :SET UP RECORD MIZE IN PACKET 
10465 177778 R4.TSDB(RS) : ISSUE c 
0 7 01712 PC WA “WAIT FOR SSR TO SET 
1 16501 TSSR(R5) RI *GET TSSR CONTENTS 
é 1 703 100204 #SSR'SC!BIT2,R2 ‘SET UP EXPECTED 
; oh 010 : ARE T 
5 0357 335 020100 JSR PC .FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
9 0357 ERRHRD ERRNO, T26TRL,PKTSSR *TSSR INCORRECT AFTER REREAD DATA 
752 104456 TRAP RHRD 
7 371 . WORD 
? “WORD  T26TRL 
7 117 “WORD PKTSSR 
6350 0357 370$:  CKLOOP sLOOP IF SELECTED 
762 104406 TRAP  C$CLP1 
RAEKARAEAAAAAAARAAEAAEEAAEEAAEEEAEERAKERAARAEREAEAAEEEKAEAEARAEEKERKEEREREREE 
SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
< eeeteeeeeeeeeHentenetererteteeeerenteneeneneneeeeeeeeeeeeeeeees 
045746 T26BFR+6,R1 :GET MESSAGE BUFFER 
RT_R *SET UP EXPECTED 
010000 mpiti2.n2 “SET THE RLL BIT IN EXPECTED 
1,R2 “ARE THEY EQUAL 
BEQ “BR, IF EQUAL CALL IS WELL) 
020100 JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TO6LON, EXPREC *THE RLL BIT WAS NOT SET IN ate 
“WORD 
“WORD teohee 
380$: ENDSUB 3>>>>>>>>>>>> 7, suBTEst >>>>>>>>>>>> 
TRAP C$ESUB 
002170 000031 CMP FATFLG,#25. 21S ERROR COUNT AT 25 
BLT 999$ °BR, IF LESS THAN 2 
020152 JSR PC, CKDROP “TRY TO DROP THE UNIT 








FRONT END PRT C 
ADS 


045720 


010332 
020100 


8 13 
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;+ 
TEST 2. SUBTEST 6 
:VERIE IES LG REREAD PREVIOUS COMMAND READING A 


Cc SHOR HAN THE SPECIFIED BYTE COUNT CAUSES 
pi Me ALERT TERMINAT WITH THE RECORD LENGTH 












; CONTAINS 
;DIFFERENCE BETWEEN T 
ZACTUAL RECORD LENGTH). 
; STATES OF OPP (0 AND 1 


OUNT AND THE 
RESULTS ARE VERIFIED FOR BOTH 








BGNSUB 3 >>>>>>>>>>>> “— SUBTEST >>>>>>>>>>>> 
c$BSUB 

JSR PC, T26REST :SET COMMAND PACKET 

JSR PC, T26RT SET UP OTHER COMMAND PACKET 

JSR PC, T26RT SET UP OTHER COMMAND PACKET 


sRARAARARAAAAAAAEAAAEEE EEE EEA ERERERAEEAAAEEAEAEEERRERERERERRAAREREEEREERE 


TISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


é 
FARRAR AAAAAAEREEEAEEEEEEEREEERERAEAERAEEREARAAEEEREREEAERAEAAREEERAEREEEE 






JSR —- 3D0 INITIALIZE ON CONTROLLER 

BCS :BR IF INIT WAS 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R “CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SF IERR,SFIMSG “FAT AL ERROR TSSR WAS NOT OK 
TRAP RDF 
eWORD SFIERR 
-WORD SFIMSG 

20S: 
MOV AT26PACKET ,R4 s SUBROUTINE NEEDS PACKET ADDRESS 


STAAAAAARAAAAAAERAAEEAAEAA TEER ATEAAARAAERARAARAAAEAERAREREEAERAEREREES 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
SRAAAAAAAAAAAAAAAE AAA RERERAAAEAAEAAEAAERAEEAAAAAAAERARRAEEEEREERERES 






JSR PC .WRTCHR ;1SSUE WRITE oo SUED ok 
JSR PC ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV * SAVE AN ONTENTS OF 


RO,R1 $ 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC oy 






—- 


“WORD WRTMSG 














CZTUYAO y 3 Aw sl END PRT C 
Test 2: RE 


124 011666 
6426 was HH 36 
104406 


130 004737 010434 
j Reles Sass 
1s $1878) $8009 
7 020100 
154 10445 
suse 8! 11700 
164 104406 
45 
i 
if 1 ? 045746 
. 702 000002 
5 5206 1 
, 789 020100 
61 
ia 
onl 16344 
4 





GTe20$ goosog 


re gusts SLE. AEG 
ore GHGS SIRES 30% 
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-WORD SFIMSG 
TRAP CSCLP1 


£ SAREE AE AE AAEEAA SEAT EE AE AAA AAAAAAAAAAAAAAAAAAAAAAAAKRARAAEAAAERAAE 


“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


eittititiiiitiiisiiitiiiiiiiiiiiiiiii irr 
JSR PC REWIND sCALL “ —_ 


BCS 

MOV TSSRCRS) RI 3GE 

MOV #SSR ,R2 3SET UP EXPECTED TSSR 
sPACKET ADDRESS SET 
INC AND CHECK FOR MORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 


26$: CKLOOP sLOOP IF SELECTED 












JSR PC. FATCHK 
ERRHRD ERRNO, T26RWN,PKTSSR 


§ RHRD 





T 
PKTSSR 
TRAP CSCLP1 


SRRRAEAAARERAAAAEAAEAAEATEEAAEEAEAAAEAAAEAAARERAAARARARAERERAAEREEERE 


[READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
. 
FRAAAAAAAAAEAAAAAAEAEAEAAAAAREEAEAAEAERAAEKAAERAEAAAEARARRERERERERAEERERE 


30$: CKLOOP sLOOP IF SELECTED 





T26BFR+6,R1 :PICK UP XSTO 
R1.R ‘SET UP EXPECTED 
#BiT1.R2 *SET BOT BIT IN EXPECTED 
R1_R2 “DOES EXP = REC'D 
é “BR, IF EQUAL (0k) 
PC .FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26B0T ,EXPREC “TAPE NOT AT BOT AFTER REWIND 
TRAP RHRD 
o- “WORD T26B0T 
“WORD EXPREC 
40$:  CKLOOP *LOOP IF SELECTED 
TRAP CSCLP1 
MOV #256. .R3 sRECORD SIZE 
046052 MOV FREE, T26RB “STARTING WRITE BUFFER ADDRESS 


SRARAAAAAAAAAAERAEAAAA SEA AAEAAAAREAAARAARERAAAERAERAERARAEAEAEREERES 


[WRITE DATA,CVC=1,ACK COMMAND 


: 
SREERAAAAAEAAAEAASASEAAEAAATEAARARARAAAEAARAAAAARERAAERARAREREEEEERES 


046050 V #14000 ,T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
= MOV Ope Re *SET UP R4 WITH PACKET ADDRESS 
"(MOV R3,126SZ sSET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) [ISSUE COMMAND 








D 13 














a" UVAQ -Tu80 FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 89-2 
171 PC .WAITF : 

B88 TSSRCRS) RI cert 
SET 
R1_RO = ARE 
75 BR 
020100 PC .FATCHK INC 

SOFT 

“WRITE 

sHERE 

ERRSOFT ERRNO,WRTERR,PKTSSR *TSSR 

75$:  CKLOOP sLOOP IF SELECTED 
Hr 00% 909 MOV #512. ,R3 :RECORD SIZE 
3072 046052 MOV FREE, T26RB SOTARTING READ BUFFER ADDRESS 


SRRAAEAAEAEAEAEEEAAEEEEEREAEAETEREEEREERARERAEAARAAREAREREERAARERAERE 


[REREAD PREVIOUS, ACK,CVC=1,0PP=1 


© 
SRAAAAAAAAEAERAAEREREREREEEREERAEEAAEAERAARAAAAEEARREAARERARERAAREREER 


#161001 , T26PKS sREREAD Re WITH PACKET Abd ess 






















7 161001 046050 MOV 
165$: MOV SET UP UP R4 WITH PACKET 
MOV 12682 RECORD SIZE IN PAC 
7 MOV Ra! * TSDB(RS) ‘issue COMMAND 
171 JSR PC WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS) -R SR CONTEN 
MOV arise etre, R2 
an 
020100 JSR CK FOR MORE THAN 25 ERRORS 
eRRHRD Peano. FOGTRLPKTSSR INCORRECT AFTER READ DATA 
TRAP ; RHRD 
~ WORD 
“WORD T26TRL 
-WORD PKTSSR 
170$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
SRAAAAAAAAARAAAAAAAAAAE ASAE AEEEAELALAARAAARARERAARERARAAEEAEREREERES 
*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITTI Titiitititititititi tir ry 
ot MOV T26BER+6, oR1 sGET MESSAGE BUFFER 
MOV ‘SET UP EXPECTED 
BIS mit 4,R2 ‘SET THE RLS BIT IN EXPECTED 
CMP R2 *ARE THEY EQUAL 
BEQ *BR, IF EQUAL (ALL IS WELL) 
020100 SR “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO. TOOLOP,EXPREC “THE RLL BIT WAS NOT SET IN STO. 


SEQ 159 


E 13 
































SEQ 160 
RONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 89-3 | | 
| 
a05)3 = 
1 
i6 peer | 
13701 045744 "MOV T26BFR+4,R1 :PICK YTE COUNTER 
re 950400 MOV yon Re “THIS ue DIFFERENCE 
1 CMP R1_R2 71S T E CORRECT 
BEQ 196$ :BR. I 
020100 JSR PC. FATCHK SINC AND FOR MORE 
ERRHRD ERRNO, T26PBP,EXPREC ‘RBPCR NO 
seacss 
030 
190$:  CKLOOP sLOOP IF SELECTED 
a12708 901000 MOV #512.,R3 sRECORD SIZE 
137 3072 046052 MOV FREE, T26RB “STARTING READ BUFFER ADDRESS 
fF RARERERAAEEAEAAAEEAERAEEAAAAAAAAAEAERAARAAAAAAEAERARARAEAEAAAERREEE 
*REREAD PREVIOUS, ACK,CVC=1,0PP=0 
PITTI IIIT Tiiittiiititiittiiiiiiiiiiiiiiiiii ih 
12737 141001 046050 MOV #141001, T26PK3 :REREAD PREVIOUS,ACK, CVC=1 ,OPP=0 
g MOV #T26PK3 i¢ SET UP R4 WITH PACKET ADDRESS 
MOV $2 *SET UP RECORD SIZE IN PACKET 
3 MOV *TSDB(RS) SISSUE COMMAND 
171 JSR “WAIT FOR SSR TO SET 
1 MOV 5),R1 GET CONTENTS 
MOV C'81T2,R2 *SET UP EXPECTED 
1 CMP SARE THEY E 
4 BEQ “BR, IF OK 
° 737 020100 JSR FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ,T26TRL,PKTSSR *TSSR INCORRECT AFTER READ DATA 
4 TRAP 5 RHRD 
eWORD 
“WORD T26TRL 
1 “WORD PKTSSR 
6566 270$:  CKLOOP sLOOP IF SELECTED 
sta 104406 TRAP  CSCLP1 
4 SRAAAEAAAARAAEREEAEEETEEAEEAEREREREERAERAAEEEAAAERERAARAAEAERAEEERE 
, “READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
ITI iti iiiiitiiiiiiiiiiiitiii i 
g fs 43701 045746 MOV T26BER+6 RI :GET MESSAGE BUFFER 
6 MOV R Re “SET UP EXPECTED 
6 040000 BIS #BiT14,R2 *SET THE RLS BIT IN EXPECTED 
6 1 CMP R1R2 SARE THEY EQUAL 
28 BEQ 2806$ “BR. IF EQUAL (ALL IS WELL) 
020100 JSR PC FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
3 ERRHRD ERRNO, T26LOP,EXPREC “THE RLL BIT WAS NOT SET IN XSTO 
104456 TRAP  CSERHRD 





T END PRT C 


Bia 
ag tai 


BM 


; 002170 000031 
020152 
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T 


FREG RI 
R1_R2- 
ERRNO, T26PBP,EXPREC 






CMP FATFLG,#25. 
BLT 999$ 
JSR PC ,CKDROP 


T 
EXPREC 
3LOOP IF SELECTED 
TRAP CSCLP1 
$>>>>>>>>>>>> END Suerest >>>>>>>>>>>> 


CSESUB 











——— ae 


SEQ 161 





G 13 


SerUvAD TUs0 BA ld END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 90 


SEG 162 


sTEST 6, SUBTEST 7 









BGNSUB $>>>>>>>>>>>> BEG iM, SUarESt >>>>>>>>>>>> 
335 . —— 
7 0306% JSR PC, T26REST 3SET COMMAND PACKET 
ela B36 3 JSR PC, T26RT sSET UP OTHER COMMAND PACKET 
737 050774 JSR PC, *T26RT sSET UP OTHER COMMAND PACKET 


FAAAAAAAAAAAARAAAAARASAA SAAS AAKAARERARAREAAAAAAAAERAAAAEREKERERAEE 


S ISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
SRARAAAAAAARASAAAKAAAAAAAESAAAAEAAAAAAAAAAAAAAAAEARERAAAAAAAREREREEE 












016644 JSR PC, SOF INIT :d0 INITIALIZE ON CONTROLLER 
5407 BC :BR F INIT WAS OK 

? 020100 JSR SFATCHK AND NEHER FOR MORE THAN 25 ERRORS 

716 MOV R1 : CONTENTS OF TSSR REGISTER 

1 ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 1 
“WORD  SFIERR 
-WORD SFIMSG 

6639 20S: 
° 036726 012704 045720 MOV #T26PACKETR4 s SUBROUTINE NEEDS PACKET ADDRESS 


RARE AAAAAAAAAAAAAAAEASEAEEAEAAAAERAAAAAARARARARARAARARARARERAAAERES 


sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


< eeeeneneeeneneneeetereeeererseeeneeeneneceneereeeeeeeneeeeenceeeee 






737 010332 ST WRTICHR s ISSUE WRITE CHARACTERISTICS 
? ? 7BR, IF COMMAND ISSUED OK 
4 4 020100 4% a ; HECK FOR MORE THAN 25 ERRORS 
6656 746 ERRHRD ERRNO, WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 





T END PRT C 


” ne 


eA 010434 


7 020100 


te 


1 
1 
14 104406 





3709s O18%06 


6 


13701 045746 
: 000002 
— $0000 cosa 


13000 046050 
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TRAP CSCLP1 


© SERAAAEAAAAAAEAAEAASTASEAAESTAASEATAERAARARAAARARAAAAERAAAAAEAAAAAAAAEEAAAE 


$ ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 





265: CKLOOP sLOOP IF SELECTED 





REAAAAAAAASAAEEAAAETAAAEKEAEKERAARAAAARAAAAAAARAAAARAAAAAARAAEAAAAARAE 











PC REWIND :CALL TAPE REWIND COMMAND 
7BR, IF NO PROBLEM 
TSSRC(RS) RI “GET TSSR 
#SR R2 SET UF UP EXPECTED ISSR. 
PC FATCHK + INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 


am 


T 
PKTSSR 











30$:  CKLOOP sLOOP IF SELECTED 
CSCLP1 
fs RARARAAAAAAAAAAARERERE TEA ASAE AAAAAAAAAAAAAAAAARAAERARAAARAEAEERERE 
“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITTI itt iti itiiiiiiiiitiiiiiii iii rrr 
FR+6,R1 
Bit ne CTED 
FATCHK MORE THAN 25 ERRORS 
ERRNO, TOOBOT ,EXPREC FTER REWIND 
TRAP CSERHRD 
“WORD T26BOT 
-WORD EXPREC 


408: CKLOOP 


sLOOP IF SELECTED 
#256. .R3 sRECORD SIZ 


nn . TRAP  CSCLP1 
MOV FREE, T26RB ‘STARTING WRITE BUFFER ADDRESS 

fRRARAAAAAAAAAAASAAAEAETE LAA ALARAAAAERAAERERAREREREREREAERERERREEKE 

“WRITE DATA,CVC=1,ACK COMMAND 


. 
SRRAAAAAAAARAAAAASAAAAAAATASAAAATAAAAAAAARARAREEAAAAAARERAAEAAE EARS 


MOV #140005. T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
MOV #T26PK Ag *SET UP R4 WITH “PACKET. ADDRESS 
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65$: 
MOV : 
JSR Pest i LER : 
MOV ; 
MOV Ré. 1SpBcRS) : 
JSR PC.WA : 
MOV TSSRC(RS) RI : 
me ast : 
BEQ 75$ : 
71 JSR PC FATCHK : 
ERRSOFT ERRNO, WRTERR,PKTSSR ; 
104457 
11 
11 
1700 
6723 ' 75$: sLOOP IF SELECTED 
1 (R3)¢ :BUMP RECORD SIZE 
1 703 000414 #268. .R3 sEND OF RECORD YET 
4 346 6 “BR, IF MORE RECORDS TO WRITE 
1 80S: *LOOP IF SELECTED 
7162 104406 TRAP CSCLP1 
71 120$: 
SRAAAAAAAAATAAAAARASAAAARAKAAAKERAAAAAAAAAERARAEAAAARAAARAERARAAEEEEE 
* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
< Sheeeeekeeeeeeeneeeeeeeeeeeredeeenaagakeeteeeeneekeeneereneteeener 
4 737 010434 PC REWIND 3CALL TAPE REWIND COMMAND 
1 TSSR(RS) RI 
7 iat SR,R2 iSEr Ure UP EXPECTED TSSR 
OR sPACKET ADDRESS SET 
020100 PC’ FATCHK ‘INC AND kK FOR MORE THAN 25 ERRORS 
ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
10 1 56 TRAP RHRD 
1 1 WORD 
14 404 .WORD T 
1 “WORD PKTSSR 
6746 130$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP  CSCLP1 


SRRERAAAAAAARARAASARARATAREAAAERAAAEAAREERARAAAAARERARAEREREAERAEEEE 


“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


’ 
SRRAAAAEAAAAAAAAS ASAE ATE RAAAAAEAEAAAAAEAARERAAAEAAAAEREREAAAREEREES 


ha MOV T26BFR+6,R1 :PICK UP XSTO 
MOV R1 Re “SET UP EXPECTED 
BIS #BiT1.R2 “SET BOT BIT IN EXPECTED 





J 13 





SEQ 165 










—_—<— oe eee - 



























CZTUYAO TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 90-3 
TEST 2: REREADS 
as gg ue 
7 020100 PC, FATCHK 25 ERRORS 
753 ERRNO, T26B0T ,EXPREC ND 
66 1 i SERHRD 
1 ee 
1esee EXPREC 
6764 140$:  CKLOOP sLOOP IF SELECTED 
1044 CSCLP1 
6765 012 000400 046102 MOV #256. T26RSZ sSTORE START RECORD SIZE 
? 7264 000420 BR 150$ [SKIP THE SAPCE THIS TIME 
AAA AAAAAAAAAEERAEAEAA AE EAETAEAAAAAAAAAARAAARAAAAAAAAAAAAAAARAAEARE 
°ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
77 3BIT 15 SETS DIRECTION ~ O=FORWARD REVERSE 
Ae « gaeeeneeeneneenneeeeereeeeeeeeeereeeeneeeeeeeneeceeereeeeneeeeete 
775 037 127 3 90000: 145$: #1,R3 sSPACE ONE RECORD PARAMETER 
276 7 10140 PC. SPACE 3CALL SPACE ROUT INE 
7 03413 ane : F NO PROBLEM WITH SPACE COMMAND 
ae 1 3 } Hitt SR.R2 : EXPECTED TSSR 
1 ‘ SPACKET ADDRESS SET 
7 020100 PC FATCHK SINC AND CHECK FOR THAN 25 ERRORS 
ERRNO, T26SC,EXPREC : SPACE RECORDS) FAILED 
456 RAP 
17 “GORD T26SC 
1 a “WORD EXPREC 
137 1 "MOV T26RSZ,R3 sRECORD SIZE 
13793 O58 095 046052 MOV FREE, TO6RB ‘STARTING READ BUFFER ADDRESS 


FS RAARAAAAAAAAEAAAEAESTAEAEEAAAAAAAAARARAAEAAEAAEAAERARERERARARAREREEE 


SREREREAD DATA,CVC=1,ACK COMMAND 


e 
SERAAAAAAAAAAAAAAAARSAESESSEESEAARARARAAERERAERAAAAAERERAERERARERES 










? 141401 046050 MOV #141401, 126PK3 :REREREAD DATA. CVC=1 ACK COMMAND 
0 165$: MOV 3°R4 “SET UP R4 WITH PACKET ADDRE 
MOV » 12652 *SET UP RECORD size IN PACKET? 
MOV Re SDB iRS) ; 
171 JSR ; 
MOV (RS) RI ; 
MOV : 
CMP ; 
BEQ ; 
020100 JSR ; 
? ERRHRD ERRNO. So EUDC.. PKTSSR ; 
4 
41 
741 





SS SS) 


WOCBNAU SW 





uw SS 





i 


A a YJ FRONT END PRT C 
TEST 2: ADS 


003072 
000400 


020190 
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170$: CKLOOP 


173$: 


180$: 


190$: 


000031 





LOOP IF SELECTED 





TRAP CSCLP1 
CURRENT BUFFER ADDRESS TO R2 
eUneT RECORD SIZE 
FIRST LOCATION IN BUFFER 













3SET UP POIN 
HECK DATA READ (R3=DATA ALSO) 
F ALL IS WELL 


A 
AND CHECK FOR we THAN 25 ERRORS 












RAP RHRD 

- WORD 

~-WORD T26DTA 

-WORD EXPREC 
SELECTED 

T CSCLP1 
NEXT LOCATION 


CORDS SIZE VALUE 
ORD YET 

» OF RECORD 
= SIZE 
TO READ 


CSESUB 


ee — 


meee ee ae —_—_ 


L 13 



















SEQ 167 
caTuy TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 91 
TEST : REREADS 
°TEST 2. SUBTEST 8 
*VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 | 
AND SWB=1 OPERATES PROPERLY. THE TEST T SEQUENCE 1S | 
THE SAME AS THAT USED IN SUBTEST 1 | 
‘VERIFIED THAT DATA STORED BY THE COnmAND CONTAINS 
*SWAPPED BYTES. | 
7 - BGNSUB 3>>>>>>>>>>>> BES N SUBTEST >>>>>>>>>>>> | 
1044 3 TRAP = CSBSUB | 
50640 JSR PC, T26REST sSET COMMAND PACKET 
7 7 050 JSR PC. T26RT *SET UP OTHER COM ND PACKET 
7 737 050774 JSR PC. T26RT *SET UP OTHER COMA.ND PACKET 
sRAAAAAAAAAAAAAAAAAAERETEREAAAAAAERAAEAAAREREREAAEAEERAREAAEEAEREES 
*ISSUE CONTROLLER SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
PITITIC TTI Titiiiitiiiittitiiiiiiiiii iii 
737 016644 JSR BC , SOF INIT D0 INITIALIZE ON CONTROLLER 
? acs [BR IF INIT WAS OK 
7 737 020100 JSR PC FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
? 1 MOV *CONTENTS OF TSSR REGISTER 
? ERRDF ERRNO,SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
7 1 55 TRAP  CSERDF 
? 1 .WORD 271 
7 0 “WORD SFIERR 
? 666 <WORD SFIMSG 
7 208: 
037570 012704 045720 MOV #T26PACKET,R4 s SUBROUTINE NEEDS PACKET ADDRESS 
{AAAAAAAAARAAHAAAAETEEERETAETEAAARAEAAAAAERERARAAAAEAAEREAAEAREEREEEE 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PITIititiiiiitiitiititiitii iii 
757% 737 010332 JSR PC .WRTCHR s ISSUE WRITE CHARACTERISTICS 
? 103407 BCS SUED OK 
? 020100 JSR PC .FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
0001 MOV RO,R1 > SAVE a ONTENYS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 
if TRAP CSERHRD 
ret 7 
761 WRTMSG 
$890 26$ CKLOOP LOOP IF SELECTED — 
aa aM | . CSCLP1 


C21 
TEST 


g 


o AOA 
$s 8 

=e PONE ~~~ 

Ee eat 

S Senn deasea 


~o 
= 


oooowowowovo 
eG eed cond med woah eed ad ed 
DWOONO UNS wil =O 


DOO 
RO 


RRERERERR SOS 
gine 
PUNO 


6926 
104 
7 1270s 
9 137 
9 
ef 
9 


9 

9 

9 7726 012737 
3 7734 t 704 
77% 

fe i 
77 337 
77 1 5 


77 7 
77 6501 


yrag TU8O FRONT END PRT C 
: REREADS 


045746 
000002 


020100 


00807¢ 


046050 


a 13 
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046052 


046050 


{SAS AAAASAAAAAAAAAAS SAAT E AAAS AAAA AAA REAR AAAAAAAAERAAARAAAAAARAAEEE 


¢ ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


+ 
Ss OMAAAAAAAAAAERERAAAAAATESEAEEAAEAEAAAAAAAAAAERAEARAAARAAAAAAERAEAAREE 


JSR PC REWIND 
TSSRCRS) ,R1 
#SSR,R2 


RO, 
PC. FATCHK 
RRHRD ERRNO, T26RWN,PKTSSR 


30$: CKLOOP 


CALL TAPE REWIND COMMAND 


sSET UP EXPECTED TSSR 
PACKET ADDRESS SET UP 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 

TR SSR RHRD 








«WORD T26RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRARAAAAREREAAAEAAARETAESEREREAERERAERAREREREEREREEERERAEEERRERREERE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


° 
SRRAAARERAAAAAAAAAAAAAEEA RATES SAEREREAAARAAAERERERAARAEEREAREREREREE 


TGBER+6 RI 
R1,R 


#oitt ke 
408 


PC ,FATCHK 
ERRNO, T26BOT ,EXPREC 






40$: CKLOOP 


MOV FREE. T26RB 


sPICK UP _XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 


*BR, IF EQUAL (OK) 
“INC AND CHECK FOR MORE THAN 25 ERRORS 
‘TAPE NOT AT BOT AFTER REWIND 
TRAP § CSERHRD 
.WORD 276 
“WORD T26BOT 
“WORD EXPREC 
sLOOP IF SELECTED 
TRAP  CSCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


sRRAAAAREAAAAARAAAAEAEAEREREREERAAEREREAAARERAEARERERAEREREREREEREE 


“WRITE DATA,CVC=1,ACK,SWB COMMAND 


e 
SRERAEARAEAAAEAERAREREAAERAAEERAARERAERAEAERERAERAERRRERERAERERERES 


MOV #150005 , T26PK3 
658 MOV #T26PK3S,R4 


0 





R3_R 

PC. LLMEM 
R3.126$2 
R4. TSDB(RS) 
PC WAITF 
TSSR(RS) RI 





sWRITE DATA, CVC=1,ACK,SWB COMMAND 
“SET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
7 SET cane SIZE IN PACKET 


“WAIT FOR SSR TO SET 
*GET TSSR CONTENTS 





SEQ 168 


+ oe oo - 


eS <a  T — 


CZTUYAO TU8O FRONT END 
TEST : ADS 


10 011700 
6956 i , 
7 1 57 
a 
B sos 





2 
S 


1 


7 
1 
1 
4 
7 


iS 


an 
SASS 
Ofwh—-oO 
oe oe oe oe ok oe oe oe oe oe oe 
a Ft et Nak 
SERS asses 
oO NEw 


co on oo ae ne 


PRT C 
000200 


020100 


000414 


010434 


00200 


020100 


045746 
000002 


020100 


N13 
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MOV #SSR_R2 
CMP R1,R? 
BEQ 75 

JSR PC FATCHK 


ERRSOFT ERRNO, WRTERR ,PKTSSR 


75$: ‘ CKLOOP sLOOP IF SELECTED pee 
TST (R3)+ sBUMP RECORD SIZE 
CMP #268. ,R3 “END OF RECORD YET 
BNE 5$ “BR, IF MORE RECORDS TO WRITE 

80$:  CKLOOP’ “LOOP IF SELECTED 

as TRAP CSCLP1 


SRERRARERERERER ERE AERA EE REC ERERAEREAAAEEAEATEREAAEAEHEEREE KEKE KEES 
: 

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

’ 
seRRRAREREREREAEERERER EERE REREARERERERERERERREEEEEEREREEREREEREREEE 


PC REWIND sCALL TAPE REWIND COMMAND 
BCS 1 sBR 4 NO PROBLEM 


MOV TSSRCRS) RI *GET TSSR 
MOV #SSR.R2 *SET UP EXPECTED TSSR 
MOV RO,R4 “PACKET ADDRESS SET UP 
JSR PC .FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2Z6RWN,PKTSSR “REWIND NOT ACCEPTED 
CSERHRD 
.WORD 27 
“WORD T2 
“WORD PKTSSR 
130$:  CKLOOP sLOOP IF SELECTED 
TRAP = CSCLP1 


SRRARERERERERAERAEEEREREEEETEEEEEREREEEREREEREEERERERRREREEEEEREREEE 


“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
SRRREAREERERAEREEAEEEEREREREEEAREREREEEREEERERAREEEEREREREEREEREREE 


MOV ©—- T26BFR+6,R1 :PICK UP_XSTO 

MOV = RT R2 :SET UP EXPECTED 

BIS  #BITT,R2 :SET BOT BIT IN EXPECTED 

CMP «R12 :DOES EXP = REC'D 

BEQ :BR. IF EQUAL (OK) 

JS ;INC_AND CHECK FOR MORE THAN 25 ERRORS 


“TAPE NOT AT BOT AFTER REWIND 


‘ae, sine 
-WORD T126B0T 


R PC, FATCHK 
ERRHRD ERRNO, T26BOT ,EXPREC 








CZT 
TES 





114 
11 


FSSSERVSSENVSNSKS 


weed ceed ceed) eed ee eed ed esd et ed) ed eed ed ed ed 


SO ROROROROROROR. 


RRR ROROFOF 
CR ALALALAA 
SEDC ene oes 


EIFS 


ssiees 


wrap TU8O FRONT END PRT C 
T : REREADS 


016344 


is se 


ee 


— 


ed ad ood 
NS woes 
eS ee 


Drow 
NO 


ed 
—s 


000400 046102 


1 
010140 


000200 


020100 


808078 046052 


t i 046050 


020100 


003072 
000400 


B 14 
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TRAP 


140$: CKLOOP 
MOV #256. ,T26RSZ 
oe 4508 


LOOP IF SELECTED 


START RECORD SIZE 
7SKIP SAPCE THIS TIME 


See 


+ ISSUE SPACE RECORDS COMMAND - VALUE is RS SETS NUMBER OF RECORDS 
:B1T 15 SETS DIRECTION - O=FORWARD =REVERSE 


‘ sneneeeceeeeneneneeeeeeereeeeeneeteeeeereeeeeeeeneeeneeeteeeretets 





EXPREC 
CSCLPI 





145$: MOV #1,R3 :SPACE ONE RECORD PARAMETER 
JSR PC. SPACE CALL SPACE ROUT INE 
acs “BR. IF NO PROBLEM WITH SPACE COMMAND 
MOV TSSR(RS) RI °GE 
MOV #SSR,R2 :SET UP EXPECTED TSSR 
MOV OR sPACKET ADDRESS SET UP 
JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26SC,EXPREC “POSITION (SPACE RECORDS) FAILED 
TRAP RHRD 
.WORD 
-WORD T26SC 
-WORD EXPREC 
150$: 


MOV T26RSZ,R3 sRECORD SIZE 
MOV FREE, TO6RB ‘STARTING READ BUFFER ADDRESS 


SRAAAAAAAEAAAAAAAEAE SEAR AREAEEEREKERARARERAERERAREREAAAREAAEEEEEEREE 


[REREAD DATA,ACK,CVC=1,SWB COMMAND 


© 
SRAAAASAAERSAAAAARAAAAAEA AAT AAAARARAAAAAAAARARARARERAAAAERAERARERAENEE 










MOV a 1401. T26PKS sREREAD DATA.ACK,CVC=1,SW8 COMMAND 
165$: MOV “SET UP R4 WITH PACKET ADDRESS 
MOV RST oes a5" ?SET UP RECORD” SIZE IN PACKET 
MOV Raat 1SpBcRS) ‘ISSUE COMMAND 
SR WAITE “WAIT FOR SSR TO SET 
TSERCns) R1 *GET TSSR CONTENTS 
SET PECTED 
ot zAR EQUAL 
FATC “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO To SeuoC. PKTSSR *TSSR INCORRECT AFTER REREAD DATA 
TRAP RHRD 
“WORD  T26wWOC 
“WORD PKTSSR 
170$:  CKLOOP sLOOP If SELECTED 
TRAP  CSCLP1 
MOV FREE .R2 ;CURRENT BUFFER ADDRESS TO R2 
MOV R3,RE T RECORD SIZE 
SUB #256. .R4 FIRST LOCATION IN BUFFER 
1738: ADD UP TER 


CMP (RE) R3 CHECK DATA READ (R3=DATA ALSO) 








SEQ 1 


qc eS 





7057 


7067 


S3ee 





33 


Soaaaaaan ans 


REESE EEREREES SE: 


ms 
== 


ae 





- ae om END PRT C 


GEE a 


i ; o006t% 


104406 


oe 


; 002170 000031 
020152 


180$: 


190$: 
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180$ 
(R4) ,R1 


PC. FATCHK 
ERRNO, T26DTA, EXPREC 


(R4)+ 
R2,R4 
R4,RS 
173$ 


(R3)+ 
R3,T26RSZ 


#266. RS 


FATFLG,#25. 
999% 
PC ,CKDROP 


IF ALL IS WELL 
TA 







FOR MORE THAN 25 ERRORS 


= WRITTEN 
= i 
T26DTA 










- WORD 
-WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 
;BUMP i NEXT LOCATION 
3C CT RECORDS SIZE VALUE 
sEND OF VET 
:BR, IF NOT AT END OF RECORD 
[BUMP RECORD SIZE 
sSTORE REC 
sEND 4 RECORD YET 
sBR F MORE RECORDS TO WRITE 
3L POOP IF SELECTED 
RAP CSCLP1 
2>>>>>>>>>>>> ~~ a. >>>>>>>>>>>> 
TRAP CSESUB 


SEQ 171 





avs, bbe 1 vm 


it 


; 


Ss 


~4~4 4" 


=? 


+ 


Pe 
+ + 


a 
y 
4 


: > +. , Dw : | : ; 7 ’ 








Sas ~sd nd us 


! 
“i 


1 a 


737 016644 
Sie 020100 


fat Bes 
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-¢+ 


[TEST 2, SUBTEST 9 


“VERIFIES THAT THE REREAD NEX 
> FORWARD, SPACE REVERSE 






F 

NUMBER (I 
:TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


THE REREAD NEXT COMMAND IS ISSUED 
AND THE RESULTS CHECKED 





cath 
oe 




















A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA_IS CHECKED TO VERIFY THAT THE TAPE 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. 


THE N LEFT 
POSITIONED AT THE START OF THE TEST a ryt THE 
AD F EAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


‘THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
[TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
3 EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


Ge Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Se S 
- 











BGNSUB >>>>>>>>>>>> aeein SUBTEST >>>>>>>>>>>> 
CS$BSUB 

JSR hs lenest sSET COMMAND P 

CLR 

JSR PC,  teont OT 

JSR PC, T26RT SET UP OTHER COMMAND PACKET 


FRAAAAAAAAAAAAA AREAAAKSAATSESEEEAAARAAELHAARARAERARARAAAAARAAAAERAERES 


SISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
SRERAAAAAAAAAAAA MAAAAAAAAASAAAEAERAAARAAAERERAEAAERAEAAERAAEREREEREREE 


JSR aaa :D0 INITIALIZE ON CONTROLLER 






BCS sBR IF INIT 

JSR Ot OF ATCHK sINC_AND CHECK FOR MORE THAN 25 ERRORS 

MOV KOR sCONTENTS OF TSSR REGISTER 

ERRDF ERb.%.SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT 
TRAP _ 
-WORD SFIERR 
-WORD SFIMSG 





SEQ 17 
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SEQ 1 









TEST 2: RERE 
7127 
4) 040436 012704 045720 MOV #T26PACKET .R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
71 RASA AAA AAAS AAAS T AA ATTA ASS A AAA A AAA ALARA AAKAKAHALAAAAAAAKARAAAAE 
1 ; 
a sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
a. Perttiitiiiiiitiitiiiiiitii iii 
1 
4 otf 7 610332 JSR PC ,WRTCHR + ISSUE WRITE CHARACTERISTICS 
1 BCS +; IF COMMAND ISSUE 
4, sts 7 020100 JSR PC ,FATCHK sé FOR MORE THAN 25 ERRORS 
1 10001 MOV R sSAVE CONTENTS TSSR 
714 : ERRHRD ERRNO, WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
5 6 33 TRAP — 
Dac eWORD 
7 -WORD WRTMSG 
: 1666 WORD 
7144 56 26S: CKLOOP ;LOOP IF SELECTED 


104406 TRAP CSCLP1 


sAAAAAAAAAAAAAAAAASSS SASK AE AAEAAARAAAAAAAAAARAAAEARARAAAAAAREREREE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
FARA AAAAAAAAAAAAAAAAA AES AAAAEEEAATAAARAEAARERAERAAERRERARERAEERRAEEEE 









SVN 
en ee ee ee ee ee ee ee SS 








73 010434 sr PC REWIND 3CALL TAPE REWIND COMMAND 
000000 MOV TSSRCRS) RI GE 
nov sR R SET UP EXPECTED ISSR 
7 020100 SR PC FATCHK *INC AND c Meck F FOR MORE THAN 25 ERRORS 
ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
456 T ; RHRD 
4 T26RWN 
1 PKTSSR 
7162 30$:  CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
a SRARARAAAAAAAAAAERESEEAEAEAEEAEAAEAAAAAARAARAERAAAARERARREREEREERERE 
*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITTI Titi titiiiitiiiittitii iii iii 
1 045746 MOV T26BER+6 RI :PICK UP XSTO 
mOY SET UP EXPECTED 
000002 BIS Sait R2 ‘SET BOT BIT IN E 

1 CMP R1,R2- “DOES EXP = REC'D 
1 4 BEQ 408 “BR, IF EQUAL (OK 

737 020100 JSR CHK *INC AND CHECK F 
1 ERRHRD ERRNO. TOGBOT .EXPREC *TAPE NOT AT BOT 





sa 





CZTUYAO TUBO FRONT END PRT C 
TEST 2: REREADS 


016344 


G1EI98  p0g409 





06057% 
NL 7,y. 
‘eres 








18706 046030 
a 


1 
171 





020100 


000414 





046076 


1 
1 
1 
1 
1 
1 
1 
1 
1 


i 
: 


—~ 





F 14 


7% 
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WORD  EXPREC : 
40$:  CKLOOP ;LOOP IF SELECTED . | 
TRAP CSCLP1 
MOV #256. R3 :RECORD SIZE | 
046052 MOV FREE, T26RB ‘STARTING WRITE BUFFER ADDRESS 


Fs RARAAAAEAAAAAAAARATAAA AAS AAAS AAAAAAAAAAAAAAAKAAAAKAAAAAATAA SA AARAS 


“WRITE DATA,..C=1,ACK COMMAND 


: 
SRAAAAAAAAAAAAAAAEAAAAAEAA TAA AE AARARAAAAAAAAARAAATAAAAAERAARAAAAENS 






















046050 MOV #140005, T26PK3 SWRITE DATA,CVC=1,ACK COMMAND 
- MOV a Toeees Re “SET UP R4 WITH PACKET ADDRESS 
MOV R3 T26S2 :SET UP ARE CORD SIZE IN PACKET 
142252 MOV T26CNT FREE “MOVE TAPE RECORD R TO BUFFER 
046076 ADD #1, T26CNT : R READY FOR NEXT RECORD 
MOV R4.TSDB(RS) : COMMAND 
JSR PC WAITF : 
MOV TSER CRS) RI ; 
MOV #ssr R : 
CMP Re : 
BEQ 3 
JSR PC ,FATCHK : 
ERRSOFT ERRNO, WRTERR,PKTSSR : 
75$:  CKLOOP sLOOP IF SELECTED 
TRAP CS$CLP1 
TST (R3)¢ :BUMP THE RECORD SIZE 
CMP #268. .R3 *MAXIMUM SIZE YET 
BEQ 1 *BR, IF AT END OF WRITE SEQUENCE 
pa BR 6 “WRITE MORE RECORDS 
CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 


SRERAAAAARARAAAA STAHL ARS AAS KATA AAAEKAAARAAAAAEKRERAKAARAAAARATHAAELER AES 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
Steeeeeeeareeceaeeeererereeereedeeeneneneereneeeneeenerreereneeeere 
JSR REWIND :CALL TAPE REWIND COMMAND 
BCS “BR, IF NO PROBLEM 
MOV TSSR(RS) .R1 “GET T 
MOV ORG “PACKET ADDRESS SET UP 

PC’ FATCHK CHECK FOR MORE THAN 25 ERRORS 


ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
TRAP RHRO 
. WORD 
“WORD 
















JSR 
ERRHRD 











CET VAg TUBO FRONT END PRT ¢ 
TEST 2: REREADS 


117 
104406 


essa gue 
a 
§ 


1 
1 
4 
7 1 
, 39 
7 15 
16 
1044 
7 1273? 
ta 
1010 
1014 
1 
1 1 
1 1 
1 7 
: 
a8 
1 17 
1 1 
1 
Be 
1053 OF 





041060 012737 





000400 046102 


oe 


020100 


$0807 046052 


161401 046050 


— ee ae ee 
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-WORD PKTSSR 
TRAP CSCLPI 


{AAAS AASAAAAAAA AAS SASS ASKS TASS AAAAAAAAAAAA AK AKSLAAA ASK ATAH ATLAS ALe 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


PItttiiitiititiiii iii 
T26BFR+6,R1 cack we xSTO 


mae EXPECTED 


130$: CKLOOP sLOOP IF SELECTED 





















FATCHK nCHeCK oor MORE THAN 25 ERRORS 
ERRNO. T26BOT , EXPREC AT BOT AFTER REWIND 
wo 
WORD 
“WORD T26B0T 
: EXPREC 
135$:  CKLOOP sLOOP IF SELECTED 
T CSCLP1 
MOV #256. .T26RSZ ZSTARTING RECORD SIZE 
BR ‘SKIP OVER THE SAPCE THIS TIME 
SRASSSAAAAAAAAAAAA SASSER E TASS AAAS AAAAARAAAAAAERAAERAAAAAAAARAAAEEEE 
; S COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
‘iT 15 errs DIREC jon O=FORWARD =REVERSE 
< ececceneneecenereceereceeeeeeennencneeeeeenteneeeeeeeeeenneceeetes 
132$: 1,83 ise UP SPACE COMMAND (1 FORWARD) 






ALL SPACE ROUTINE 
F NO TROUBL 

GE 

SE 







RI f TSSR . 
T 


#00000 
TSSRCR 
_ R 








SET p EXPECTED TSSR 
PC FATCHK INC K FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26SC.PKTSSR * SPACE (FORWARD) 


FAILED 
T 





o 
T $5 
PKTSSR 


1408: CKLOOP sLOOP IF SELECTED 


T26R sRECORD SIZE 
MOV eerste *STARTING READ BUFFER ADDRESS 


SAASASAAAAAASAAASAASAASERARESAAAATARASAAAARAKAAAAAARAAAAERARERAATEEE 


ZREREAD DATA,CVC=1,ACK. OPP COMMAND 





CSCLP1 











SRASKAAAASRSAAARSAASAAASAASAASAAAAARAARAAARAKAAARAAARAKAARAAAAAARARENE 


MOV #161401, T26PK5 sREREAD DATA,CVC=1,ACK, OPP COMMAND 





SEQ 175 


Eee es 


SEQ 176 





















= Ww sv = A 
a F a. a S 
my. 4 ad “A 
> 5 A 
we ,~ 4 A 
“s w -w a a 
A 
| re a 
| 2 = & as 
| uw -~ < a) 
Poel bee 
be “= eee Su = “<= 
hr w ‘ue mee 
daw i 
tw 
#S (7) 
wow a I> 
—_ tas 
a s- </ 
us 
— us uu. © 
ww CIE et fee 
ww A rT) 
oo a © ee 
A Ge Ge 
o A wae CL) bee 
ma @*e%e 
Lv 
bes} A 
aA 
aA 
fa’ 
A 
a A 
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ww 
’ 2 
= 4 ws 
= te 3 
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sx oe =N 
- ST eal = «© 
ae, waekw <£ 
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ERRHRD ER 
CKLOOP 
CKLOOP 
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165$ 
170$: 
190$: 
200$ 
9995 





00048 


041004 
; 002170 000031 


5 85% S983 Sasa = SR 

ot tis z seeeee ; Marge 86 Shon 

S55855 = Seckeg 283: Sass 
- ~ e o 

S cara $2 SS SS RSS 

tl eel cl see ool cee cee cel ool cel ek el aoe eel eh el cel ol ll ol el ee eel oe oe 


et eet eth ath ae ae ae seh eel ah ast eth eh eh edhe gee eed eh neh eel ah ed eth eh ehh eh eee seh eh seth ee Beh nel Bh ee ne eh 





TUSO FRONT END PRT C 
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SEQ i/77 
1 + 
[TEST 2, SUBTEST 10 


“VERIFIES THAT THE REREAD 
“AND SWB=1 OPERATES PROPERLY 





SET UP OTHER C 
s;SET UP OTHER COMMAND PACKET 


ond eed ceed aed ed ed ed 


; eae ssh Pe, T26REST SE 
rar Os0rse isk Begone 7 





fs RAAAAAAAAAAEAEAAAAEAAAAAEAESEAERAEAAEAAARAARARAARAAERERAAERAAEAAAEE 


SISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


a 
AAAAAAAAAAAAAAAEAAEAAEA ESSE EAAAAAAEAAAAAARAEAAAAEAAAAEAAAERERAEEREEE 


737 016644 JSR BC ,SOFINIT :D0 INITIALIZE ON CONTROLLER 
? BCS ‘BR IF INIT WAS OK 
7 , 020100 JSR /FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, SF IERR, SF IMSG 
4 455 RAP ROF 











RF KRRREKERKE RERRRKE 














1 

1 : CONTENTS OF TSSR REGISTER 

ATAL ERROR TSSR WAS NOT 

: : 

: 866 “WORD SFIMSG 

: 208: . 

1304 012704 045720 MOV AT26PACKETR4 sSUBROUTINE NEEDS PACKET ADDRESS 
{SERRA AAAAAAAAAARERAEAE RAE TERESA AARARAAAARAAEAELAAAREARARARAEREREAERE 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Seeeeeeeeeneeakeeeeeeeeeeeeedeeeekekeeteteeteneeeneeneneneeeeeenes 

1 19 737 010332 JSR PC WRTCHR sISSUE WRITE CHARACTERISTICS 

131 7 BCS 268 “BR, IF COMMAND 

1 737 020100 JSR PC ,FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 

1 1 MOV *SAVE CONTENTS OF T 

1 ERRHRD ERRNO, WRTMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 

1 1 56 CSERHRD 

1 44 TEORD 

1 7 "WORD WRIMSG 

1 1666 “WORD SFIMSG 





CZTUY 
TEST 


7374 041 
% SEE soven 


7 
7 


5 ak ee 


_Tu80 FRONT END PRT C 
: REREADS 


1 

) u 
1 1 

1 

1 7 
1 

1 1 

ie i 
, os 
1 104406 
13% 13701 
1 101 
14 7 

& 1 
ie ie 
i 

14 

i 1044 

8 Rt 
ie Sick 
ie anege 
14 0137 


ig 
\° & O18 7 
Hee BLE 


00000 


000200 


020100 


045746 
000002 


020100 


046052 
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MACRO M1200 29-MAR-83 13:43 PAGE 93-1 


CKLOOP 


| ee eee eee Ce 


sLOOP IF SELECTED 


TRAP CSCLP1 


£ SARA AAAAAAAS AEA AT AAAS AAAS SSA AAARAARAAAAAAAARAAAAARARAAAAAAAAALATAS 


$ ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


’ 
£ ERASE AAAAAAAAAAAAAAAA SAA ASS AAAAAATAAAARARAARARAAAARAAEAAAAAAAAAAAE 


JSR 





PC REWIND 
TSSR(RS »,R1 
#SSR.R2 


RO,R 
Be PATCH 
ERRNO. T26RWN, PKTSSR 


30$: 


CKLOOP 





i CALL TAPE REWIND COMMAND 
[SET UP EXPECTED TSSR 

‘BR, IF NO PROBLEM 
PACKET ADDRESS SET 
SINC AND 

“REWIND NOT ACCEPTED 












UP 
CHECK FOR MORE THAN 25 ERRORS 
TRAP RHRD 











sLOOP IF SELECTED 
CSCLP1 


RARE AAAAAAAAEAAAES SAA TAAEAESAAHAERAAARAERERAERAAAAAAAREEREREAEEE 


TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
FARRAH AAAAAAASAS SASH SASS SSAA EAEKARARERAARARAAARAEEAARESEEAAEARAREY 


R+6 RI 






PC FATCHK 
ERRNO. T26B0T ,EXPREC 





40$: 
ret 


CKLOOP 
MOV 
MOV 
EI Ti iii 


“WRITE DATA,CVC=1,ACK COMMAND 


e 
SRAAAATAAAARAASEASARETERARE EA AEAERERAAAEAARAAAAERAERAEAAREREEAEEREE 


e:f2eRe 


rhe LO la 


Tasca FREE 
26CNT 


65$: 





sPICK UP _XSTO 
SET UP EXPECTED 
;SET BOT BIT IN - 


OK) 
AND CHECK FOR MORE THAN 25 ERRORS 
NOT AT BOT AFTER REWIND 
TRAP RHRD 







- WORD 
- WORD 
- WORD 
TRAP 


sRECORD SIZE 
STARTING WRITE BUFFER ADDRESS 


T2680T 
EXPREC 


CSCLP1 





sLOOP IF SELECTED 


sWRITE DATA,CVC=1,ACK COMMAND 
“SET UP R4 WITH PACKET ADDRESS 


sSET_UP RECORD SIZE IN PACKET 
SMOVE TAPE RECORD NUMBER TO BUFFER 
SNUMBER READY FOR NEXT RECORD 






SEQ 178 


| 
| 
| 








K 14 





















SEQ 179 
vag TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 93-2 
: REREADS 
1474 010465 17777 R46, TSDBC(RS) 
1 7? 0171 F 
1 16501 TSERCRS) RI 
1510 #SSR_R 
1514 1 R1_RO 
1 16 14 75 
1 737 020100 PC, FATCHK 
1524 ERRSOFT ERRNO,WRTERR,PKTSSR 
1524 106457 T 
1 ? 
1 11 
1 11 
1 75$: sLOOP IF SELECTED 
1 1 CSCLP1 
1 3 (R3)+ :BUMP THE RECORD SIZE 
1 000414 #268. .R3 “MAXIMUM SIZE YET 
1 1401 1 “BR, IF AT END OF WRITE SEQUENCE 
1358 742 _ 6 “WRITE MORE RECORDS 
1550 005037 046076 T26CNT sSET RECORD COUNTER BACK TO ZERO 
SRAAAAAAAAAAAAAAAAEASSEEAETEEAEAAERAERERAAAEAERAEAERAAREREARERAAEERE 
* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
West itiIitt iT iiiitiiitiiiitiiiiiiiiiiiiiiii i rrr 
1554 737 010434 REWIND :CALL TAPE REWIND COMMAND 
1 3411 1 : F NO PROBLEM 
1 501 000000 TSSRCRS) RI ; 
1 1 , “PACKET ADDRESS SET UP 
1 7 020100 PC .FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
157 ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
1574 1 56 RHRD 
157 5 . WORD 
1 404 -WORD T26RWN 
1 117 “WORD PKTSSR 
1 130$:  CKLOOP sLOOP IF SELECTED 
1 104406 TRAP CSCLP1 


JARRE AAEAAAAAAAAAAASAAEAAEHATAAAAERARAAAAAAEAEAAEAERERARAEAAEAAES 


[READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


. 
SRAAARAAAAAAEAAAEAAA EAST EAASARARERERAAERAEAERAAARARARERAAERAREREERE 


recor are h' sPICK UP xSTO 
R1,R SET 


weit »R2 “SET BOT BIT 
Rhee - 


A 1 045746 
000002 
4 S$ 
737 020100 JSR PC FATCHK [INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26B0T ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
104456 TRAP  CSERHRD 





eal onolh e medt ceed eek ed ent 


L 14 


Q@ 180 
CE TUVAR TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 93-3 = 
TEST 2: REREADS 





26801 
EXPREC 


7481 


135$:  CKLOOP LOOP IF SELECTED | 
000400 046102 MOV #256... T26RSZ START RECORD SIZE | 


eed ed ed eed eed oe ed 

















‘ Negi TRAP  CSCLP1 
? BR *SKIP OVER SPACE 
ee ee 
? SISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
? 3B1T 15 SETS DIRECTION = O=FORWARD  1=REVERSE 
te < eeeeeeeeneneneneeeeereteceeeneeeesereneenneneneaneeeeeenttereennes 
1652 0127 1 136$: #000001,R3 sSET UP SPACE COMMAND (1 FORWARD) 
1 ona? O00 PC, SPACE ‘CALL SPACE ROUTINE 
i rae TSR »,R1 zBRe SSR” — 
1 + 762 itt RD : “SET UP EXPECTED TSSR 
1674 010 oR SPACKET ADDRESS SET UP 
167 7 020100 PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
1 ERRNO, T26SC,PKTSSR *SPACE (FORWARD) FAILED 
1 $ TRAP sno 
1 51 “WORD T26SC 
171 11700 “WORD PKTSSR 
} 140$:  CKLOOP sLOOP IF SELECTED 
171 TRAP CSCLP1 
1714 01 7 046102 MOV T26RSZ,R3 sRECORD SIZE 
g 1720 0137 046052 150%: MOV FREE, TO6RB “STARTING READ BUFFER ADDRESS 
e fs RAAAAAAAARERAAAREREAEEEAEAEAEAEEAEKAAAREEREEREREREREARERERERERAEREE 
¢ ; “REREAD DATA.CVC=1,ACK, OPP COMMAND 
7311 seeeeeeeeeeeeeeeeeereeeeegereerekketeeeereteereeneeeeeeeeenenennes 
o318 1726 12737 161401 046050 #161401, T26PK3 REREAD DATA cvc=t Ack. OPP COMMAND 
g 14 0417 1 0 165$: “R4 SET UP Ré ity T ADDRESS 
15 041740 010337 56 ,T2652 SET UP RE ORD SIZE iM PACKET 
? 16 1744 01 65 177776 Ri. “TS0B (RS) °1S CORPMAND 
7517 041750 393 017120 ‘WAIT FOR SSR TO SET 
518 1754 016501 900000 TSERCRS) RI *GET TSSR CONTENTS 
7519 0417 1 ; #SSR,_R2 “SET UP EXPECTED 
50 BITES St Ss ae 
73 1 737 020100 PC FATCHK 7 INC AND CHECK FOR MORE THAN 25 ERRORS 
7 1776 ERRNO, T26RRF ,PKTSSR “TSSR INCORRECT AFTER REREAD DATA 
1.26 sie TRAP RHRD 
325 “WORD  T26RRF 
7527 170$:  CKLOOP sLOOP IF SELECTED — = 
1044 : TRAP  CSCLP1 
7528 17701 141060 MOV aFREE,R1 “FIRST WORD FROM READ BUFFER 
75 13702 046076 MOV T26CNT RZ sSET UP EXPECTED 


M14 
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TEST 2: REREADS 
r wis 

















if 
14203 T 
490 36 EXPREC 
7537 042036 190$:  CKLOOP 
045036 TRAP = CSCLP1 
7538 04204( 000001 046076 ADD = #1, T26CNT ; COUNTER 
7539 042046 (R3)+ ; IZE 
7540 04205¢ ; St RS, 126RSZ ; SIZE 
7 1 ’ 4' 1 # o oR *BR ET 
7542 042066 2 IF AT END OF THE SUBTEST 
7343 04206 041652 soe 1368 KEEP’ GOING MORE” RECORDS 
7545 042066 y>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
' 066 L1 : 
+ . 
942066 1 CSESUB 
Le yg ¢ ' 7 : 002170 000031 CMP FATFLG,#25. :I1S ERROR COUNT AT ¢ 
7 042076 & BLT 999$ BR, IF LESS THAN 2 
ey, H's 7 020152 JSR PC ,CKDROP sTRY TO D THE T 





CZ 
TE 


N14 


T 
) 


yvag TU8O FRONT END PRT C MACRO 41200 29-MAR-83 13:43 PAGE 94 

T : REREADS 

7551 3¢ 

222¢ 3 

Le: s TEST 2, SUBTEST 11 

75 ‘VERIFIES THAT A a NEXT COMMAND READING A 

75 *RECORD R THAN THE SPECIFIED BYTE COUNT CAUSES 

7 *TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

7 “LONG (RLL) BIT set — S ARE VERIFIED FOR BOTH 

f “STATES OF OPP ( aND 1) 

: ; 

7 3 

7 :- 

; 

7 1 BGNSUB 2>>>>>>>>>>>> aeein SUBTEST >>>>>>>>>>>> 
1 1044 $ os CS$BSUB 

7 1 7 30638 JSR PC, T26REST sSET COMMAND PACKET 

1 737 Oo ae JSR PC, T26RT SET UP OTHER COMMAND PACKET 
11 737 a077e JSR PC, T26RT SET UP OTHER COMMAND PACKET 





SRRAAAAAEERERAAAERAE EEE EAEEEEEAAAAAAAAEEREREERERERAARERERAEEREREEEE 


>~\ B 


SRRPRE REE E FERRE 


SISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


ASN VN 
Vw 





a PITT Iiiiittitiiiitiiitieetiii titi 
ie 1 737 016644 JSR PC, SOF INIT :DO INITIALIZE ON CONTROLLER 
1 07 BCS 20$ “BR IF INIT WAS 
1 737. 020100 JSR PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
1 0001 MOV RO.R1 “CONTENTS OF TSSR REGISTER 
1 ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
136 104455 TRAP CSERDF 
14 55 ; 1 
14 550 “WORD SFIERR 
1 1666 "WORD SFIMSG 
5 042146 20S: 
042146 012704 045720 MOV AT26PACKET,R4 s SUBROUTINE NEEDS PACKET ADDRESS 
6 SRERRAAEREAEREREEREEREREEREREEEREREREEEEREEREREREEEEEEREEREREEREREE 
se “WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PITT iTiiiiiitiiiiiiiititiiiiiiii iii Er 
3¢ 737. 010332 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
% 3407 acs 26$ :BR ISSUED OK 
9 737 020100 JSR PC .FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
0001 MOV RO.R1 “SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG, SF IMSG “WRITE OHARACTERISTISC FAILED 
TRAP RHRD 
"WORD WRTMSG 
"WORD SFIMSG 


268: CKLOOP sLOOP IF SELECTED 








B 15 | 

SEQ 18 
CE IUVAR TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 94-1 1 
TEST : REREADS 


| 042176 104406 TRAP CSCLP1 





| ; 5 FRSA EAAAAAE AAA A EASE EAE TESA AAA AAA AEAERAAAAEAAAAAAAAAORAEAAARERE 
f 7 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
g Pettit itiititiiiitiiiiiii iii iii irri 
761 JSR PC REWIND :CALL TAPE REWIND COMMAND 
761 MOV TSSR(R3), R1 “GET TSSR 
761 MOV sSET UP EXPECTED TSSR 
14 f Hf BCS IF NO PROBLEM 
15 MOV 308 ‘PACKET ADDRESS SET UP 
6 020100 JSR PC; FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
TRAP RHRD 
WOR 
i “WORD T26RWN 
117 “WORD PKTSSR 
7621 30$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP  C$CLP1 
; £ TRAE AEAEAEAEAAAAEREE AREER AERERERAAERARRERERAERERRARERERRERERERREE 
7698 “READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
g $ PITTISITITTITII TTI TIT TTTT TTT iTiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiid 
g 045746 T26BFR+6,R1 sPICK UP XSTO 
[SET UP EXPECTED 
weir ~R2 *SET BOT BIT IN EXPECTED 
1,R2- “DOES EXP = REC'D 
re °BR, IF EQUAL (Qk) 
PC FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
7639 40$:  CKLOOP sLOOP IF SELECTED 
# ious TRAP  CSCLP1 
7640 991000 MOV #512. ,R sRECORD SIZE 
1 046052 MOV FREE, tSere “STARTING WRITE BUFFER ADDRESS 


SERARAAAAAAAERAAAAEAAAAAEEAEREAAAAEAAEAAAAAREAEAAERAERAEREEEERAEEERS 


“WRITE DATA,CVC=1,ACK COMMAND 


. 
SRRAAAAAEAAAAAAAAAAAATERER AEE AERAARARAAERAERERARAEEEEAEREE EERE EEE EE 





12737 140005 046050 MOV #14000 _—e sWRITE DATA,CVC=1,ACK_ COMMAND 
. i begoso MOV #T26PK :SET UP R4 WITH PACKET ADDRESS 


65$: 
R3, cans :SET UP RECORD SIZE IN PACKET 


MOV 

5 Tir MOV R4, - TSDBCRS) “ISSUE COMMAND 

171 JSR PC WAITF “WAIT FOR SSR TO SET 
MOV rSéneRs), R1 *GET TSSR CONTENTS 





1370 
000002 
4 
020100 
ERRNO, T26BOT ,EXPREC [TAPE NOT AT BOT AFTER REWIND 
ae TRAP C RHRD 
. WORD 
<WORD T26B0T 
V2 .WORD EXPREC 
6 
7 
2708 








é 


FRRLRER 


VINNY 
Janourun—a 
Sse 
~ 
en 
S=5228 
ww 
Soo 


ay 

— 
eee 
wm 


7685 


SPELLS 


SoaRVo 


SIN III 


‘ 
9 & 
4 
95 0424 
are 
ss 


383 8 


vag TU8O oe END PRT C 


444 010434 
000000 
2 000200 


7 020100 | 


5 
S 


045746 
000002 


1 “6s 
17 


16344 


1044 
go3388 003072 046052 


020790 


75$: 





RRS 
§ 


‘5 
PC ,FATCHK 


ERRSOFT ERRNO, WRTERR ,PKTSSR 


CKLOOP 


e 15 
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PKTSSR 
CSCLP1 


sLOOP IF SELECTED 


TRAP 


SRERAAAAAAAARAEAAAAAAEAS EEE AAERARAEAAAAAAAAKAAAEAAEERAERAEREAEEREEE 


“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
SARAAAAAAAAAEAEAAREAAEEEEEAEAAEEAARARAAAAEAAARARAEAARAEREREERERRERE 


130$: 











C.REWIND :CALL TAPE REWIND COMMAND 
TSSRCn3), R1 “GET T 
»R2 ‘SET UP EXPECTED TSSR 
“BR, IF NO EM 
aR PACKET ADDRESS SET UP 
PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
RRNO, T26RWN,PKTSSR *REWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 
-WORD T26RWN 
“WORD PKTSSR 
CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 


FRAARAAAARAAAARAAAASRE TARA ATARERARAAAAAAARAAARARAAEARERERAEERERREREE 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
SRERAAAAAAAAEAAAAAEAEAEEEAAARAAERARARARERARAAAARAEERAEAREAAEAAAEREERES 


140$: 


C FATCHK 





R3 
MOV FREE, T26RB 


ERRNO. T26B0T ,EXPREC 


T26BFR+6,R1 :PICK UP XSTO 

1,R2 *SET UP EXPECTED 
#BiTt.R2 “SET BOT ert IN EXPECTED 
i6t “DOES EXP = REC'D 


:BR F EQUAL Ok) 
‘INC AND CHECK FOR MORE THAN 25 ERRORS 
*TAPE NOT AT BOT AFTER REWIND 


RHRD 
“WORD  T26BOT 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sSET RECORD SIZE TO 511. 
SSTARTING READ BU: “ER ADDRESS 


ee ees ee — ——e + 





D 15 
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TEST 2: REREAD 
7 7 {PARRA AAAAAEAAAAAAAA AA AA SAAS AAAAAAAAAAAAAAAAAAAAAAAEAAEAAAAAAAARE 
2 *REREAD DATA, CVC=1,ACK,OPP=1 COMMAND 
on Petitiiiitiiiiiiiiiitiiii iii iii iii) 
771 466 12737 161401 046050 MOV riSeed ng -T26PK3 sREREAD DATA, CVC=1 ACK.OPP=1 COMMAND 
7714 0424 1 704 50 165$: MOV *SET UP R4 WITH PACKET ADDRESS 
103 & MOV 3,726 ores ‘SET UP RECORD SIZE iN PACKET 
716 1 MOV “re * TSDB(RS) TISSUE C 
0 017120 JSR ITF “WAIT FOR SSR TO SET 
718 4 01 5 1 MOV TSSR( :GET TSSR CONTENTS 
é MOV peer ee tert2.R2 “SET UP EXPECTED 
4 1 CMP R1,R2 “ARE THEY EQUAL 
14 BEQ 1 “BR. IF OK 
é 737 020100 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 
77 seme ERRHRD ERRNO, T26TRL,PKTSSR *TSSR INCORRECT AFTER RERE 
8 WORD 
117 
7727 170$:  CKLOOP sLOOP IF SELECTED 
ais 104406 TRAP  CSCLP1 
77 SERARERARAAAAARAAAAAAASAEEAEAEEAAAAAERAAAERAARERAEAAAAAARARERAERAEEREREE 
! ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
7 PITTI TITI Ti iiiiiitiiiittiiiitiiiiiiiiiiiiiiiii iit erie 
5 13701 045746 T2CBER*6, R1 :GET MESSAGE BUFFER 
10 ‘SET UP EXPECTED 
010000 ain 2,R2 *SET THE RLL BIT IN EXPECTED 
1 *ARE THEY EQUAL 
14 “BR, IF EQUAL (ALL IS WELL) 
40 737 020100 ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
7% PEGEATOWS «coc ‘THE RLL BIT WAS NOT SET IN XSTO 
oS b006 Moro $09 
? 48 “WORD T26LON 
76 016344 -WORD EXPREC 
7745 180$: 
77 012703 000777 MOV #511.,R3 sSET UP SIZE OF RECORD 
4 13737 003072 046052 MOV FREE, T26RB *STARTING READ BUFFER ADDRESS 
re FS RRAREAAAAAAAAEAAAEAAEAEAEREEEAAERAEAAAEREAAEAAARKEERAAERERAEEEREEEEE 


SREREAD DATA,CVC=1,ACK COMMAND 


© 
SRARAAAAAAAEAAARARAEEREEEREREEAERAEAAERERAERERERAERRERERRAEREEEEEEE 


#141401, T26PK3 sREREAD DATA,CVC=1,ACK COMMAND 
» 3SET UP R& WITH PACKET ADDRESS 
R3, 12652 “SET UP RECORD "SIZE IN PACKET 


RZ; TSDB(RS) UE 
W CWAIT FOR SSR TO SET 
TSSR(RS) RI *GET TSSR CONTENTS 





365$: 


w 
~~ 
SEG —~ 
SUI 
NERS 
— 

& 

_ 

e 

3 

° 





3 
oS 
on 
ws 





E 15 
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77 100204 #SSR!SC!BIT2,R2 :SET UP EXPECTED 
77 CMP R1_R2 TARE THEY EQUAL 
77 BEQ 376$ “BR, IF OK 
77 020100 JSR PC, FATCHK SINC AND CHECK FOR 
77 ERRHRD ERRNO, T26TRL.PKTSSR =TSSR INCORRECT AF 
370$:  CKLOOP sLOOP IF SELECTED 
104406 CS$CLP1 
JF AAAAAAAAAAAEEAAEERELAEETAEAAEEAERARAAAARAAAEAAARAAAAAERERAAE ARREARS 
SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITT Titi titi titi itiiiiiiiiiiii iii 
13701 045746 T26BFR+6,R1 :GET MESSAGE BUFFER 
101 ‘SET UP EXPECT 
010000 eeit 2,R2 “SET THE RLL BIT IN EXPECTED 
1 R1,R2 * ARE THEY EQUAL 
4 BR IF EQUAL (ALL IS WELL) 
737 020100 PC FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
E ERRNO, T26LON,EXPREC ‘THE RLL BIT WAS NOT SET IN XSTO 
1 456 TRAP ¢ RHRD 
. WORD 
“WORD T26LON 
1 -WORD EXPREC 
" _ ENDSUB :>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
1 ; " TRAP.  CSESUB 
727 002170 000031 CMP FATFLG.#25. 21S ERROR COUNT AT 25 
4 ¢ BLT 999$ “BR, IF LESS THAN 2 
737 020152 “a JSR PC ,CKDROP *TRY TO DROP THE UNIT 


7 


mip 
n—- 
Cc 
=< 
mo 


am 





33833 


i 


oO ed me ah eed cd 


NOMS UM 





TUSO FRONT END PRT C 


EY 


he 


043004 012704 


- 


> 
eee 


ie: 


016644 
020100 


045720 


010332 
020100 


F 15 
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-¢+ 


STEST 2. SUBTEST 12 








BGNSUB 3>>>>>>>>>>>> “a ress >>>>>>>>>>>> 
CSBSUB 

JSR PCT T sSET COMMAND PACKET 

JSR PC. T26RT °SET UP OTHER COMMAND PACKET 

JSR PC, T26RT sSET UP OTHER COMMAND PACKET 


SARAAAAAAEAEAAAAAAAAEREAALESAAAEAERAEAAAREREEEAAAAEEAAAAARAAEREREEE 


; ISSUE CONTROLLER “‘SOFT’’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


, 
£ CAA AAAAAAAAAAAAAAAS AEH AEAAASAAAERAAEAAAERAAAAAARARAAARERAAERERAEEER 





ssh SOF INIT :D0 INITIALIZE ON CONTROLLER 
JSR BC AF ATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV SCONTENTS OF TSSR REGISTER 










R 
ERRNO, SF LERR, SF IMSG ‘FATAL ERROR TSSR WAS NOT OK 


TRAP. CSE ROF 


-WORD SFIERR 
WORD SFIMSG 





: 


MOV #T26PACKET ,R4 SUBROUTINE NEEDS PACKET ADDRESS 


© RSSSSASASEAAAAAAAESASSEAEAAAAEAARAKARAARERARAAAAAAARAEAERARERAAARARAAERE 


[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


SSSSSRAAAAAAAAAAAAAAAAEELEKEAAEAAAAAAARAAAAAAAAAAAEAAEAAAAAAEREAAAEEE 


WRTCHR 






s ISSUE WRITE CHARACTERISTICS 
OMMAND 








“BR, IF C 
BC FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
“SAVE CONTENTS OF TSSR 
ERRNO, WRIMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
WORD WRTMSG 








} 
2 


i oC 
4: 
Ay. 
A> 
A) 
Ay 
Ay. 
A 
4-34: 
Ay. 





TUSO FRONT END PRT C 
REREADS 





BBE sce 


7 090004 


7 020100 





74 Q1 045746 


—<— 


16 


GTEz05 goosoe 


wee mwah mck eed ee etl wed on ed ced ed eh ed 


Bisbee 
100s 199796 


a a oe ee 


eee ee 


G 15 
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046052 


046050 


-WORD SFIMSG 
TRAP CSCLP1 


f PAAR S AAA AAAAA AAAS SSAA SSAA AAA AAA KAAAAAAAAAARAKAAAKAAKARA ALAA ATS 


2 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
WIttiiiitiiiiiiiiiiiiiiiiiiiiiiiiii irr 
PC REWIND :CALL TAPE REWIND COMMAND 
TSSRC(RS) RI “GET TSSR 
#SSR,R2 *SET UP EXPECTED TSSR 
“BR, IF NO PROBL 

UR4 “PACKET ADDRESS SET UP 
PC FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26RWN,PKTSSR *REWIND NOT ACCEPTED ends 


26S: CKLOOP LOOP IF SELECTED 





JSR 





raid 






T26RWUN 
PKTSSR 


- WORD 
- WORD 
- WORD 
30S: CKLOOP sLOOP IF SELECTED 
RAP CSCLP1 


FPA AAAAAAAAA AAA AAAS SAAS SASHES AAA AAA AREEEAARAERARERERAAAAAERRERERE 


3READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
SSRAAAAAAAAASSAAASAAASA SAHA AAS AAAAAERAAAARAAAAAAAAAAAAAERAAAREREREEE 


T PICK UP XSTO 


yeeee R+6,R1 













Re ‘SET UP EXPECTED 
iT7,R2 °SET BOT BIT IN EXPECTED 
R1_R2 [DOES EXP = REC'D 
*BR, IF EQUAL (OK) 
PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26B0T , EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
“GORD Ont 7 DBBOT 
“WORD EXPREC 


sLOOP IF SELECTED 


TRAP  CS$CLP1 
#256. Sian sRECORD SIZE 
FREE, ‘STARTING WRITE BUFFER ADDRESS 


CKLOOP 
MOV 
MOV 


RESAAAAEASEARAARAEAAAAAATASAAAELAEAAARAALAAAAERERAAAAAARAARALEAAAARAREREE 


sWRITE DATA,CVC=1,ACK COMMAND 


Seeeeeeenaeeaaeeeeererereeenseregeeteeeneneenteeterennereeeeereres 





MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 

_ MOV #T26PK3,R4G *SET UP R4 WITH PACKET ADDRESS 

"MOV R3,126$2 sSET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) ‘ISSUE COMMAND 





ie dal 





020100 
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H 15 









PC .WAITF sWAI 
TSSR(RS) RI GET 
sSET 
R1R2 :ARE 
7BR 
PC, FATCHK INC 
: SOFT 
“WRIT 
sHERE. 
ERRSOFT ERRNO,WRTERR,PKTSSR *TSSR 


sLOOP IF SELECTED 


J SAAS AAAAA AU AAAAA ASRS SSE ALEK ARAEAAAAERAAAARERAAAAAAAAAAAAAARARARERE 


S ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
J AARASAAAAAAAAAAESAASEA TATA EAA AAAEAAAEAARAEARERAEAAEREEAEREREE 


PC Rew ND :CALL TAPE REWIND COMMAND 
TSSR R ),R1 “GET T 


JSR 









1 : 

»R4 “PACKET ADDRESS SET UP 
PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26RWN,PKTSSR *REWIND NOT ACCEPTED ee 


CSE RHRD 


T 
PKTSSR 


TRAP CSCLP1 


SARAAAAASAAAAAAAAAAAATATAAAAAEAAAARAAAAAAARAAHAAAAAEAARAAEARAEAEAAERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


’ 
FAUARAASAAASAARARARASASSASAAAAAAAAAAAAAEAAERARARERAAAAHARARERARARAEEE 





130$:  CKLOOP sLOOP IF SELECTED 









T26BER+6 RI :PICK UP XSTO 
R “SET UP EXPECTED 
weir ,R2 *SET BOT BIT IN EXPECTED 
R “DOES EXP = REC'D 
i “BR, IF EQUAL (OK) 
PC FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26B0T .EXPREC “TAPE NOT AT BOT A 





T AFTER REWIND 
TRAP 





:LOOP IF SELECTED 


135$: CKLOOP 
TRAP 





-—_-—o 


ee ep ~ = 





I 15 
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san 819937 BO8072 046052 MOV FREE ToeRe STARTING. READ BUFFER ADDRESS 


£ SEAS AA AAA AAAS AAS AAAS ASA SS KSA AAAATAEAAAAAAAAAAAAAAARAAAAEAAY LAKE ES 


“REREAD NEXT, ACK.CVC=1,0PP=1 


. 
£ PARAS AAAAAAAAAAAAASAS AAAS SAAR AEAAAAAAAAARAKAAEAAAAEAAAAAAAAAARE 


7 161401 1401 046050 1401, T26PK3 READ ACK, CVC=1,OPP=1 
165$: + 1SOPLS. he SET muita PACKET ADDRESS 
RS. 126$2 SET Up RECORD "SIZE IN PACKET 
465 17 =1S OMMAND 
171 
1 
020100 : 
7 ERRHRD ERRNO, T26TRL,.PKTSSR ; 
7% 56 










R4. TSDB(RS) 
uf sWAIT FOR SSR _TO SET 
T TSSR CONTENTS 
$ T UP EXPECTED 
QUAL 








TSSR( 
yee ieciéitz. R2 


je — 
seessuesse 


1 


13700 


“I 


170$: CKLOOP sLOOP IF SELECTED 


104406 


73 
fade SAAAAAAAAAAAAAAAAEAERERASAAAAAAARAAAAEAAAAAAARAEAEAAAERARAEAARERARES 
sie ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ITI ttt iti titi tiitiitiiiiiiiiiiiiiiii iii iri 
13701 045746 R+6,R1 
MOV 

040000 ait. R2 
1068 

ERRNO. TOCLOP .EXPREC 











RLS BIT IN EXPECTED 
QUAL 

(ALL IS WELL) 
OR MORE THAN 25 ERRORS 
NOT SET rhe xSTO 


020100 





@e Ge Ge Ge Se Se Ge 
amr 
aang omg omg 


i K F 
THE RLL BIT WAS 







if 
WORD 
"WORD T26LOP 
i 4 a "WORD EXPREC 
1 5744 "MOV T26BFR+4 ,R1 :PICK UP RESIDUAL BYTE COUNTER 
$60400 #256. ,R2 : THI BE THE DIFFERENCE 
1 c R1 RO “1S RENCE CORRECT 
14 1 BR T 
ERRNO, T26PBP,EXPREC *RBPC ORRECT 
RHRD 
a 
8000 me , 190$:  CKLOOP LOOP IF SELECTED —— 
1044 406 ; : CSCLP1 
8001 012 001000 MOV #512.,R3 :RECORD SIZE 








CZTUYAO TU8O FRONT END PRT C 
TEST 2: REREADS 


043474 013737 003072 046052 


13704 141401 046050 
1 103 
1 


S76 
16561 Shogo 


020100 


BC 
‘+ 
RC 


+++ St 


SOS 





J 15 
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MOV FREE. T26RB 


we ee ee ee re ee ae ee 


STARTING READ BUFFER ADDRESS 


£ SAAAAASAAA AE AAAARSA AS AA AA AAA AAAAAAAARAARAAAAEAAARAARAAKAAAAATAAAAAES 


“REREAD NEXT, ACK,CVC=1,0PP=0 


. 
{ SAAAAAAAAAAAAARAS AS LAAATAKATE LARA AAAAAAAAAAARAAAAAKAAAAAAAARAAAAEE 


270: 






MOV #141401, T26PK3 
MOV #T26PK3,R4G 

MOV R3, 12652 

MOV R4,TSOB(RS) 

JSR 

MOV TSSRCRS) RI 

MOV #SSR'SC!BIT2,R2 
CMP R1_.R2 

BEO 

JSR PC FATCHK 
ERRHRD ERRNO, T26TRL,PKTSSR 


CKLOOP 







sREREAD NEXT, ACK,CVC=1,0PP=0 
“SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 





sLOOP IF SELECTED 
TRAP CSCLP1 


£ PARA AAAAEAAAAAAEAAAAAA AEE AAAEAAAAARAEAAAAAEAAAEEARAEERERERERAREEREEE 


*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


f 
SRAAAAAAAAARSAAAAAAAARA RSLS ASAAAAAKAAAAAARAAAEAARAAAAEAREREAAREERE 


280$: 


MOV T26BFR+6,R1 
MOV Ri 

ms pellets 
BEQ 86s 


J C,FATCHK 
ERRHRD ERRNO, T26LOP,EXPREC 
MOV T26BER+4 ,R1 
MOV y5ee »R2 

R1_R2 
ERRHRD ERRNO, T26PBP,EXPREC 


CKLOOP 
ENDSUB 


:GET MESSAGE BUFFER 
‘SET UP EXPECTED 
: HE RLS BIT IN EXPECTED 
HEY EQUAL 
F EQUAL (ALL IS WELL) 
NC AND CHECK FOR MORE THAN 25 ERRORS 
HE RLL BIT WAS NOT SET IN XSTO 

TRAP RHRD 






“WORD  T26LOP 
-WORD EXPREC 
sPICK UP RESIDUAL BYTE COUNTER 
“THIS SHOULD BE THE DIFFERENCE 
“1S THE DIFFERENCE CORRECT 
“BR, IF CORRECT 
*RBPCR NOT CORRECT 
TRAP : RHRD 
WORD 
<WORD T 
“WORD EXPREC 


;LOOP IF SELECTED 
RAP CSCLP1 
2>>>>>>>>>>>>_ END SUBTEST >>>>>>>>>>>> 
L1 : 


SEQ 197) 


EEE 





Kk 15 
CZTUYAQ Tuy FRONT EMD PRT C MACRO M1200 29-MAR-83 13:43 PAGE 95-5 
TES : REEADS 


rae 002170 000031 oe FATFLG, #25. 
020152 JSR PC ,CKDROP 


999$: 


SEQ 192 








L 15 


@ 19% 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 96 - 
TEST 2: REREADS | 


3;* 

sTEST 2. SUBTEST 13 

* VERIFIES Ar A DATA BUFFER ADDRESS REFERENCING 
-NONEXISTENT MEMORY CAUSES RECOVERABL Tea 

TE T THE TAPE 
IS 

OF 


RMINATION (TC=4 aed WITH ae AND T 
REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 





ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 


BGNSUB 3>>>>>>>>>>>> we x ress >>>>>>>>>>>> 


TRAP C$BSUB 
KTFLG sCHECK FOR KT11 


10$ “BR, I 
200$ “SKIP TEST IF KT11 
PC, T2GREST “SET C PACKET 


003100 9$: 
PC, “Ta6RT2 


5 10$: 
: 
5 ; & 
50774 PC, T26R :SET UP OTHER COMMAND PACKET 


© RERAESEEAAEAEAAEAAAEAAERETEAEAARARAEARAEEEAAERAERAAREEAREAREAAEEERERE 


s ISSUE CONTROLLER *’SOFT’’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
SAAAAAAAARAAARAREEAAAEEAAEEAEEEEAEAAREAEARAERAEAEAEEEAARAEAEREREREREERERE 























016644 JSR PC,SOF INIT 00 INITIALIZE ON CONTROLLER 
BCS 20$ “BR IF INIT WA 
020100 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV . “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT sie 
WORD 
“WORD SFIERR 
“WORD SFIMSG 
208: 
045720 MOV #T26PACKET,R4 s SUBROUTINE NEEDS PACKET ADDRESS 
SRRAAAAAAAAAAAERAAAEAEEEERETEREEAEEEAERERKERERERERAEAEREREREREEREREE 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
ITIL i ii titiiititiitiiitiiiiiiiiiiiiiiii irri rrr Terr 
010332 JSR PC WRTICHR sISSUE WRITE CHARACTERISTICS 
BCS “BR, IF ISSUED OK 
020100 JSR PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV “SAVE CONTENTS 


RO,R1 OF T 
ERRHRD ERRNO,WRTMSG, SFIMSG SWRITE CHARACTERISTISC reniee 
TRAP CSERHRD 





ee ee ee 


#15 


CET UVAS TUSO FRONT END PRT C MACRO M1200 29-MAR-83 13:45 PAGE 96-1 
TEST 2: REREADS 


eed ee eed ceed eed eed ed oe at od wd oe 


ed eed ce co ee eee eed eed oe eed ed eed 


SASRBABA PAI FE 





E 
.WORD 324 
“WORD  WRTMSG 
1666 -WORD  SFI¥SG 
8114 26$:  CKLOOP :LOOP IF SELECTED 

' 104406 TRAP CSCLP1 

1 £ RARE AAAEAAAKE SSAA LEAR AE AAA AAAARAAAAERAAAAAKARERARAAARARAAAAANE 

1 $ 

* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

1 Pettit itiiiiitiisiitiitiiiii rrr 

1 

737 010434 JSR PC REWIND sCALL TAPE REWIND, COMMAND 

1 1 000000 MOV TSSR(RS) RI ‘GET TSSR 

1 1 MOV RO,R4 ‘PACKET ADDRESS SET UP 

1 7 020100 JSR PC FATCHK IN K FOR MORE THAN 25 ERRORS 

1 ERRHRD ERRNO, T2Z6RWN,PKTSSR “REWIND NOT ACCEPTED 






a 


- oe 


ceoeen 
8131 044( 30$:  CKLOOP ;LOOP IF SELECTED 
144024 104406 TRAP CSCLP1 





SRAAAAEAAAAAEAAEREEEEEAAEEREREEEREKERARAERERARAEEAEEERAEEREERERERERERE 
*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
Itt Tiiiiit iti iiittiiisiiti iii iii ier 
4 13701 045746 MOV T26BFR+6,R1 :PICK UP XSTO 
4 1 MOV ‘SET UP EXPECTED 
4 4 000002 BIS #B1T1,R2 “SET BOT spit IN EXPECTED 
4 1 CMP R1,R2 : DOES EXP = REC'D 
4 4 Q IF EQUAL (Ok) 
4 737 020100 J SINC AND CHECK FOR MORE THAN 25 ERRORS 
48 044 ERRHRD ERRNO. TOeBOT. EXPREC «TAPE NOT AT BOT AFTER REWIND 
4 4 TRAP SERHRD 
4 5 . WORD é 
4 yi “WORD T26BOT 
4 16344 -WORD EXPREC 
4 40$:  CKLOOP sLOOP IF SELECTED 
4 104406 TRAP  C$CLP1 
4 013737 003072 046052 MOV FREE, T26RB :STARTING WRITE BUFFER ADDRESS 













SRRAAAAAAEARAEAEAREEEAAEEEEAEEREERARAARERARAEAAERERRERRERAEAREREEREE 
;WRITE DATA, CVC=1,ACK COMMAND 
PPT TTT TTT TTT TITTTTTTTITTTTTTTTTTTTT TTT hihi tee atte 
12737 140005 046050 MOV #14000 -T26PKS sWRITE DATA,CVC=1,ACK COMMAND 
1 MOV T26PK “SET UP R4 WITH PACKET ADDRESS 
4 12737 046056 65$: MOV #35 t5ke7 SET UP RECORD SIZE IN PACKET 
1 1 5 MOV T cnt aFREE *MOVE TAPE RECORD NUMBER TO BUFFER 
17 737 046076 ADD #1, T26CNT “NUMBER READY FOR NEXT RECORD 


em eee 


N15 


SEQ 195 
CET WVAR TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:45 PAGE 96-2 
TEST 2: REREADS 


1 124 5 177776 MOV R4, TSDB(RS) : 
1 1 171 JSR PC WAITF : 
1 1 1 MOV TSSR{R5) RI : 
1 140 1 MOV #SSR_R2 ; 
1 1 1 CMP R1_R2 ; 
1 146 1 BEQ 75$ ; 
1 020100 JSR PC, FATCHK : 
18 : 
176 044 ERRSOFT ERRNO, WRTERR,PKTSSK : 


: 
ow 
a 





75$: CKLOOP sLOOP IF SELECTED 


ae ss 
23 


RAP _—CSCLP1 
000013 046076 #11. ,T26CNT sCHECK NUMBER OF RECORDS WRITTEN 
1208 “BR, IF AT END OF WRITE SEQUENCE 
308 741 ion BR 65$ “WRITE MORE RECORDS 
005037 046076 " T26CNT :SET RECORD COUNTER BACK TO ZERO 


SRERAEAAAAAAAAERAAEEEAEEEEEEEERAAEREEAERAAERERERAERAARAERERRERRAAEE 


‘ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
SRAAAAAAAEREAREREEEREREEEREEEEEREREERAREEERERERERERERAERERRREEERERE 





4 04 737 010434 JSR PC REWIND :CALL TAPE REWIND COMMAND 

421 1 000000 MOV TSSR(R5S) RI ; 

4 ‘ *PACKET ADDRESS SET UP 

4 7 020100 JSR PC FATCHK INC CHECK FOR MORE THAN 25 ERRORS 
4 ERRHRD ERRNO, TZ6RWN,PKTSSR “REWIND NOT ACCEPTED 

4224 456 TRAP \ RHRD 
4 5 . WORD é 

4 4 -WORD T 

4 117 -WORD PKTSSR 
4 130$:  CKLOOP sLOOP IF SELECTED 

4 104406 TRAP  CS$CLP1 


SRARAAEEAARERARARAEREEAAEEEERERAAAAAERERREERAERERRREREREEEREREERERE 


ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


: 
SRRRRARERAAREEEEEEREEEREEEAEEREREEEEAERERAEEEARERERERERERERERRERERES 






1 045746 MOV T26BFR+6,R1 
MOV R1LR 
000002 BIS #BiT1,R2 
CMP R1_R2 
BEQ 146$ 


020100 FATCHK 


JSR PC 
ERRHRD ERRNO, T26B0T ,EXPREC 





preety 
se ve 
Vik Whoy— 
aA 
=o 


B 16 
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TEST 
eg 15 .WORD  T26B0T 
16 “WORD EXPREC 
140$:  CKLOOP sLOOP IF SELECTED 
1046 TRAP CSCLP1 
O17 og 06e 52 150S: mOV rf 6RB S OUAT ING READ Bort ER ADDRESS 
12737 000008 rte "MOV 51 77370- 12688 *SET UP HIGH ORDER ADDRESS BITS 


£ AAA AEAEAEEEAEEEAEEEAEEEEEE AA AEAAERAAAAAARARAEAEAAAAERARARERARERARNEE 


[REREAD DATA,IE,ACK, OPP COMMAND 


e 
pgs agree 0k mam i 8 a ROD 









12 011337 50 MOV ) -126PKS REREAD DATA, 1E.ACK, OPP COMMAND 
1 50 165$: MOV “SET UP R4 WITH PACKET ADDRESS 
7 ; 00 046056 MOV sates? 3SET Up RECORD SIZE IN PACKET 
7 ; 171 8 JSR “WAIT FOR SSR TO SET 
5 MOV at R1 *GET TSSR CONTENTS 
10421 MOV #SSRINKM'SC!BIT3,R2 ‘SET UP EXPECTED 
1 CMP R1_R2 *ARE THEY EQUAL 
4 BEQ 1 “BR, IF OK 
1 001000 BIT (R3) ,#B1T9 : CHECK FOR A READ COMMAND 
: BEQ 168$ IF IT WAS A READ COMMAND 
127 000002 BIT R1,#B1T1 Ons ob 
4 ane BNE 176$ “BR, rt TREREAD AND BIT1 SET 
ws 020100 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4 ERRHRD ERRNO, T26RRF .PKTSSR *TSSR INCORRECT AFTER REREAD DATA 
4 TRAP ¢ RHRD 
4 . WORD 
“WORD T26RRF 
-WORD PKTSSR 
170$:  CKLOOP sLOOP IF SELECTED 
te 104406 TRAP  C$CLP1 


SRAAAAAAAAEERAAEREREEREEAEEAEELERERERERAAEERERRAERARERKEEAERREREEEREER 


“READ DATA, ACK,CVC=1 COMMAND 


a 
SRRRAAAERAAEREEAAAAEAEEATE EEE EEAAEAERERARARAREAEAAERERERERERREEEEEEE 






MOV #140001 , T26PK3 sREAD DATA, ACK cvc=t COMMAND 
MOV "36h T26SZ “SET SIZE {NTO PACK 

CLR TO6RB+ “CLEAR OUT HIGH ADDRESS BITS 
MOV FREE. “GIVE RE DA GOOD BUFFER 

MOV “TSB ) ‘ISSUE READ DATA COMMAND 

JSR Re WAITF “WAIT FOR SSR 

MOV PCMALTE “PICK UP THE TSSR 

MOV #SSR_R2 *SET UP EXPECTED 

CMP R1_RO “IS THE TSSR OK 

BEQ 186$ “BR. IF TSSR OK (GOOD) 

JS “INC AND CHECK FOR MORE THAN 25 ERRORS 


sREAD DATA COMMAND FAILED 


R PC FATCHK 
ERRHRD ERRNO,RDERR,PKTSSR 
TRAP. CSERHRD 








CZTUYAO TU8O FRONT END PRT C 
TEST 2: REREADS 


8 SHB 





8270 
71 1296 77 136370 
hee sin 
4 1 4 
75 1 020100 
79 1 
104456 

Sass ues 
whi Balt 
‘ 5 3 104406 





045746 
000002 


20100 





A —_— -—— 


C 16 
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.WORD RDERR 
.WORD PKTSSR 
180$: CKLOOP 
TRAP = CSCLP1 
MOV @FREE ,R1 sFIRST WORD FROM READ BUFFER 
MOV #1,R :SET UP EXPECTED 
CMP R1_R “1S TAPE 
BEG 1 :KEEP GOING POSITION OK 
JSR PC, FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26WNG,EXPREC *TAPE POSITION INCORRECT 


LOOP IF SELECTED 

















TRAP ¢ RHRD 
-WORD T26WNG 
-WORD EXPREC 
190$:  CKLOOP 
TRAP CSCLP1 


ERE AAAAERAEEEAEAREEEAEEAAAAEEEEAARERAARAREREERERAAAAAAAEARAEARRERES 


“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
SRAEAAAAAAAAERERAEEE ARES EEEEEEEAAREEAAARAARAAEAAARERERRERAERRARERERS 





JSR PC REWIND :CALL TAPE REWIND COMMAND 
MOV TSSR(RS) RI : 


sGET TS 
sPACKET ADDRESS SET UP 
-IN CHECK FOR MORE THAN 25 ERRORS 


sREWIND NOT ACCEPTED 
TRAP ¢ RHRD 
- WORD 
WORD T26RWN 


-WORD  PKTSSR 
TRAP CSCLPI 
FRRAAARAAAAEEAAEAAEAEEAEERERERAAEREAARAREREREAREEREREERREKREEREREEE 
SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


2 
SRAAAAARERAAAEEAEEEREEEEE EERE AEAEAAEKEREREAREREREERARERAAEREERERARRAEE 


T> BFR+6,R1 sPICK UP XSTO 


JSR PC FATCHK 
ERRHRD ERRNO, T26RWN,PKTSSR 


194$: CKLOOP sLOOP IF SELECTED 





R >SET UP EXPECTED 
#BIT1,R2 “SET BOT BIT IN EXPECTED 
R1.R2 “DOES EXP = REC'D 
: F EQUAL (OK) 
PC, FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26BOT ,EXPREC “TAPE NOT AT BOT AFTER REWIND 
TRAP ¢ RHRD 
WOR 
"WORD T26B0T 
“WORD EXPREC 
196$:  CKLOOP :LOOP IF SELECTED 
CSCLP1 


RAP 
sSAVE R3 FOR A MOMENT 


MOV R3,R2 


SEQ 197 


I A LL LE A AL ELLA 








T END PRT C 


193593 002170 
ee 


000031 


D 16 
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hme rs mlm aay hala emt ataanaiaaiaiain teens 


ISSUE SPACE RECORDS COMMAND - VALUE “ R3 aneyehee NUMBER OF RECORDS 


;B1T 15 SETS DIRECTION - O=FORWARD 


Pet iiiiiiitiiititiiiitiiiiiiiiiii iii 


200$: 





JSR 


#1 RS 
PC SPACE 
R2,R3 


(R3)+ 
(R3) 4177777 
150$ 


FATFLG,#25. 
PC ,CKDROP 


sSPACE ONE RECORD 
Set one sence ROUTINE 








sBUMP C 
sEND OF COMMAND BUFFER YET 
;MORE COMMANDS KEEP GOING 


3>>>>>>>>>>>> END t806s: >>>>>>>>>>>> 


CSESUB 
:IS is el a r AT 25 


:BR, 
TRY 7 DROP THE UNIT 


SEQ 198 








T END PRT C 


50732 


050774 


016644 
020100 


045720 


010332 
020100 


20S: 


E 16 
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TRAP C$BSUB 
CLR R3 a." TEST COUNTER 
JSR PC. T26RE T COMMAND PACKET 
JSR PCT ents. SET UP OTHER COMMAND PACKET 
JSR PC, T26R ;SET UP OTHER COMMAND PACKET 


fF AAAAAAEEAAEAEAEEEAE AREER EEERAEAAAAARERAARAAAEAARARRARRARAERREREREE 


ISSUE CONTROLLER “‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


® 
FAAAAAAAAARAAEAERAAAEEEAAERALAEAEAAAAAKEAARARAAEREARAERARREEEEERREREEE 


JSR peal :D0 INITIALIZE ON CONTROLLER 
C BR IF INIT WAS OK 


B 

JSR PC ,FATCHK sINC_AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SF IERR, SF IMSG SFATAL ERROR TSSR WAS NOT 


TRAP CSERDF 


“WORD  SFIERR 
“WORD SFIMSG 





MOV #T26PACKET ,R4 SUBROUTINE NEEDS PACKET ADDRESS 


REE AAAEAEAAAAEEAEEEAAEEAETAAEAAAAAAEAAAAERAERERAERKEERAEAAEAREREEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
SRRAAAAARERAAAAAAAEEEEAEEAAAERERERAARERAARARERRERAERAEEAAEREREREREE 


JSR PC WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 25$ “BR, IF C Ok 
JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV “SAVE CONTENTS OF 
ERRHRD ERRNO,WRTMSG,SFIMSG “WRITE CHARACTERISTISC FAILED oa 
TGor> 
“WORD  WRTIMSG 
“WORD  SFIMSG 
25$:  CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


re eee 


3>>>>>>>>>>>> wa SUBTEST >>>>>>>>>>>> 









F 16 
T END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 97-1 


-—Cc 
~< 
5 
3 


£ SEERA AAAEAAAEAAS EASE AA SELES EA AAAAAAAAAAAAKAAARAARARERATAAAAARAARAEE 
‘ 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
£ SERA AAAEEAEAAAAAAEA ASAE EAE ER AAAAAAKEREAAERARERERAAEAAAAEAAAREAEEE 


7 737 010434 26$: JSR PC REWIND :CALL TAPE REWIND COMMAND 
7 16501 MOV TSSRC(RS) RI “GET TSSR 
7 1 g MOV #SSR,R2 :SET UP EXPECTED TSSR 
0340 acs 30$ :BR, IF NO EM 
77 MOV RO,R4 =PACKET ADDRESS SET UP 
77 7 020100 JSR PC. FATCHK [INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TZ26RWN,PKTSSR “REWIND NOT ACCEPTED 
1 TRAP ¢ RHRD 
5 . WORD 
4 “WORD T26RWN 
11700 -WORD PKTSSR 
1 30$:  CKLOOP sLOOP IF SELECTED 
12 104406 TRAP  C$CLP1 


SAARAAAAAAEAERARAAAEEREEEEAAEEAERARAARAEAAAAEAERERAAEEEEEEREERRREEEEEE 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


e 
SERRE EAAAAAEEAEAAEAEEEEEEAEEEEEEAEAKERAAERARAAEREAAEAAAEREAREREERERERE 





045746 T26BFR+6,R1 sPICK UP XSTO 
R1R2 ‘SET UP EXPECTED 
000002 #B1T1,R2 *SET BOT BIT IN EXPECTED 
R1_R2 “DOES EXP = REC'D 
40$ “BR, IF EQUAL (OK) 
020100 PC .FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26BOT ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
TRAP RHRD 
WORD 
“WORD T26B0T 
“WORD EXPREC 
8425 40$:  CKLOOP sLOOP IF SELECTED 
TRAP  CS$CLP1 
900409 046056 MOV #256. ,126SZ sSET UP RECORD SIZE IN PACKET 
04605 MOV FREE, T26RB “ADDRESS OF READ BUFFER 
TST *CHECK NUMBER OF TIMES THROUGH HERE 
BEQ 50$ *BR, IF FIRST TIME THROUGH HERE 
SRAAAAAAAAAAATAEAERAEEEAELETAEEEEAAARERAREREARAEAREREEARERAEARERAREEEE 
“REREAD, CVC=1,ACK COMMAND 
ITI II TTT titi titi ti tii ibitii titi errr 
737 161001 046050 MOV #161001, T26PK3 sREREAD, CVC=1,ACK COMMAND 
rea to Oh ec. BR 55$ *SKIP NEXT COMMAND 





i SRRRAAAAAAAEAAAAAAAAAAAAAAEL TAAL AAAAERARAAAERAAAEERAERERAAERAERAKEE 


4 [REREAD,ACK COMMAND 





G 16 


SEQ 201 
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‘ 
fA AEE AAAAAAAAAAAAEA SSAA AAS AA AAA AAAEAAAAAAAAAREAAKAAAAAAARARAARAAEE 














141001 046050 508: #141001, T26PK3 :REREAD.ACK COMMAND 
046050 pio #T26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
17776 ; R4,TSDB(RS) ; ISSUE COMMAND 
171 PC-WAITF ‘WAIT FOR SSR TO SET 
TSSR(RS) RI :GET TSSR CONTENTS 
1 #SSR'SC!B1T1!B1T2,R2 :SET UP EXPECTED 
R1_R2 ZAR THEY Y 
020100 SR PC, FATCHK BR. AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26WDE,PKTSSR :TSSR INCORRECT AFTER READ DATA 
TRAP RHRD 
“WORD T26WDE 
“WORD PKTSSR 
75$: - CKLOOP ;LOOP IF SELECTED 
TRAP  CSCLP1 
fs RARAAAEAAAEAAREREEEEEEREAEEEERERERAERAEEEAARREERERARERAEREREREARED 
*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITTI ITT titi iit iitititiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iii t iii, 
045746 T26BFR+6,R1 :GET XSTO STATUS WORD 
R1 Re ‘SET UP EXPECTED 
002000 #BiT10,R2 ‘SET THE NE 
1,R2 SARE THEY EQUAL 
“BR, IF EQUAL (GOOD) 
020100 PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T26NEF ,EXPREC ‘NEF SHOULD BE SET 
TRAP i 
EXPREC 
170$: 
sRESET THE SWITCH 
“BR, IF FIRST TIME THROUGH HERE 
* TRAP «CSESUB 
002170 000031 FATFLG,#25. 21S ERROR COUNT At ¢5 
999$ :BR, IF LESS THAN 2 
020152 PC, CKDROP “TRY TO DROP THE UNIT 





SS 


yay TUSO FRONT END PRT C 
T 2: 


: 
: 
a 
3 
5 


10 

i 2 737 016644 

i ee 020100 
r 

76 


045276 012704 045720 


| r 
8540 


010332 
020100 





i 
ne 
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TEST 2. SUBTEST 15 
: VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPAC 







E 
PREVIOUS WITH OPP=1 
N THE TAPE 


F THE FIRST REC ON TAPE (BUT 
APE STATUS ALERT TERMINATION WITH 


BOT) CAUSES T 
THE REVERSE INTO BOT (RIB) STATUS BIT SET. 





BGNSUB ¢>>>>>>>>>>>> — <" -seeae >>>>>>>>>>>> 
TRAP CSBSUB 

CLR T26CNU sCLEAR OUT COUNTER 

JSR PC,T Z6REST = SET COMMAND PACKET 

JSR PC,T gnts “SET UP OTHER COMMAND PACKET 

JSR PC, T26R SET UP OTHER COMMAND PACKET 


SAREE AEAAERERAAERARAEAEEEE AAA RERAKAAAAAERAERARAARAERERERREREERERERRE 


;ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


© 
fF SRARAAAAAAEAAAAERAREEERERARALAEAAEEREREAAAARAREERAAEERERERRREREEEEE 


20$ 









PC SOF INIT sD0 INITIALIZE ON CONTROLLER 
2BR WAS 


IF INIT 
PC FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO.RI “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
“WORD  SFIERR 
-WORD  SFIMSG 





MOV #T26PACKET ,R4 SUBROUTINE NEEDS PACKET ADDRESS 


SRRAEAEEAAAEAAEEAAEREEAEEAEERERAEAAAAAAARERERAREREREARARAREAEREREREEE 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


* 
fs RRAAAEAARAEAAREAAAEEEAE EAE EA EEAEAARAEAAAAAARERRERERAEEREREREEEERES 


25$: 








JSR eC WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS : ISSUED OK 

JSR BCFA SFATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 

MOV “SAVE CONTENTS OF TSSR 

ERRHRD BPino. WRTMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 
TRAP SERHRD 
“WORD WRTMSG 
“WORD SFIMSG 

CKLOOP sLOOP IF SELECTED 


I 16 
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045326 104406 TRAP CSCLP1 


f SAAAAAAAAAAAAAAAE AAAS AERA AAAS AAAAAAAAAAAAAAAAKAAAAAAAAAARARERRERE 


“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 





SEQ 205 





eee 


2 + eeeeeeeeeeeeeeeeeeeeeeeteeerteeeanegeeeeeeektereeeetrereredeeenere 
361 010434 26$: JSR WIND :CALL TAPE REWIND COMMAND 
690000 MOV TSERiR ),R1 “GET TSSR | 
50 702 00 MOV #SSR,R2 sSET UP EXPECTED TSSR 
55 10 0 acs 30$ IF NO PROBLEM | 
5 : ie MOV RO,R4 Packer ADDRESS SET UP 
5 020100 JSR PC’ FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS | 
é, ERRHRD ERRNO, T26RWN,PKTSSR *REWIND NOT ACCEPTED | 
3326 Op0S37 Monn Sage | 
3 i -WORD T26RWN | 
11700 “WORD PKTSSR 
8558 045 30$:  CKLOOP sLOOP IF SELECTED | 
a 5 104406 TRAP CSCLP1 | 
1 SAAAAAAAEAAERARAAAEAAEEAEAAEEAAAAKAAARERERAERERAAEAAAERAAEEEREEREREERE | 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) | 
POTEET TTT T ETO TTTCTTTTTTTTTTTTTTTT TTT TEE ELECT EEE | 
5 13701 045746 MOV T26BFR+6,R1 :PICK UP XSTO 
101 MOV R1_R ‘SET UP EXPECTE 
7 702 000002 BIS #BiT1.R2 :SET BOT pelt IN EXPECTED 
1 CMP R1,R2 :DOES EXP = REC'D 
14 BEQ 0$ BR QUAL (Ok) | 
54 737 020100 JSR PC .FATCHK iq INC bw CHECK FOR MORE THAN 25 ERRORS 
2 ERRHRD ERRNO, T26B0T ,EXPREC “TAPE NOT AT BOT AFTER REWIND 
1S dasst a 
14 115 -WORD T26B0T 
16 16344 pa -WORD EXPREC 
jetencenaannenaeccetenteeesteeteenentnenneanneanereneneneeneeenenes : 
ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS | 
:BIT 15 SETS DIRECTION - O=FORWARD  1=REVERSE | 
< eeneneeeeneeeeeeteneeereeeeeeeeeeeeeteteteteeeeenenenteeeeeneeenes | 
54 12 1 MOV #000001,R3 sSET UP SPACE FORWARD 1 RECORD : 
73 ot 4 JSR PC SPACE “ISSUE SPACE COMMAND 
3411 BCS 7 “BR IF ok | 
1 000000 MOV TSSR(RS) RI GET S DATA 
1 RG GET PACKET ADDRESS 
7 020100 MORE THAN 25 ERRORS 


JSR PC FATCHK ‘INC AND CHECK FOR 
ERRHRD ERRNO, T26WDE ,PKTSSR *TSSR INCORRECT AFTER READ DATA 


i esi A 





CZTUYAO TU8O FRONT END PRT C 
: REREADS 


TEST 


54 7043 
mm hs 
5454 104406 


597 





rs 
ee 


ras 
IN 


2 012737 
1 


100001 
010140 
000000 
020100 


161001 


141001 


797? 
71 


020100 
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046052 


046050 


046050 


75$: 


CKLOOP 


~WORD T26WDE 

-WORD PKTSSR 
LOOP IF SELECTED 

TRAP CSCLP1 


ee a 


: ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


:RIT 15 SETS DIRECTION - O=FORWARD 


T=REVERSE 


REA EAAAAEAAAAEAEAAEAAEAAAEEAAAAAAAKAAAAAAAAAAAAAAAAAAAAARAEERARE 


175$: 


MOV 
JSR 
BCS 
MOV 


MOV 
JSR 





CKLOOP 


MOV 
TST 
BEQ 


#100001,R 
PC 5 aie 


1 
TSSRCRS) ,R1 
PC, FATCH 


ERRNO, TOME. PKTSSR 


7 


eSeT SPACE REVERSE 1 RECORD 





S_WELL 
GET TSSR TS 
sSET UP EXPECTED (PACKET corey 
INC AND C FOR MOR RRORS 
ZTSSR INCORRECT AFTER = DATA 
ie 
“WORD T2 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sADDRESS OF BUFFER 
:CHECK FOR TIMES THROUGH HERE 


3BR, IF FIRST TIME THROUGH 


SRARAAAAAAAAEAAAAAEEEEEEAEEEEEERAEREREREAARAERERAEAERERERERAEERREEEE 


SREREAD (PREVIOUS) ,1E,ACK,OPP=1 CMD. 


e 
SERAAAAAAAAEAEAAEAAEAEREAEAARAAAEEAAAAAARAAARAERAEAARARARARARREERERERAEE 


#161001, T26PK3 
1788 


MOV 
BR 


sREREAD (PREVIOUS) ,IE.ACK,OPP=1 CMD. 
SKIP NEXT COMMAND 


fF RAAAAAAAEAAAEAAAEREREREREREAEEEEAEEAAAERAEEREEEAERAEEAEEREERAEEREREERE 


;REREAD ,ACK,OPP=1 COMMAND 


< eeneeeeeReReeeneeERetetettereteReeseneeeeenenenenEEeneeeeeeenenees 


#141001 , T26PK5 


176$: 
178$: 





#T26PK3,R4 
Rae TSDBCRS) 


TSSRCR 


TSgRCRS) et R2 
R1_R2 


JSR PC, FATCHK 
ERRHRD ERRNO, T26WDE ,PKTSSR 


sREREAD ,ACK.OPP=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
SWAIT FOR SSR_TO SET 

:GET TSSR CONTENTS 

:SET UP EXPECTED 
sARE THEY EQUAL 


*BR, IF OK 
“INC AND CHECK FOR MORE THAN 25 ERRORS 
*TSSR INCORRECT AFTER READ D DATA 


» & RHRD 








SEQ 2046 





—— OO EF a © ee —— 


T END PRT C 





045754 
000001 


020100 


046100 


002170 
020152 


017354 
031722 
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000031 


180$: 


190$: 


EXIT 


T26BFR+14,R1 
#Bit0.R2 
196$ 


PC, FATCHK 
ERRNO, T26NEF .EXPREC 


T26CNU 
26$ 


FATFLG,#25. 
999$ 
PC ,CKDROP 


eet 


-WORD T26WDE 
-WORD PKTSSR 
LOOP IF SELECTED 







TRAP CSCLP1 
sGET XST3 STATUS WORD 
sSET UP EXPECTED 
F BIT 
THAN 25 ERRORS 
yr _ 





“WORD T26NEF 
~WORD EXPREC 
sSET SWITCH Ma OTHER WAY 

IF FIRST TIME T 
<>>5>>9>>>>>> END C8065: >>>>>>>>>>>> 


CSESUB 
:IS ERROR ge 1 AT 25 


sBR, IF LESS 
sTRY TO DROP THE UNIT 


:D0 WE NEED TO ITERATE TEST 
“BR, IF NO LOOP REQUIRED 
‘EXECUTE AGAIN 


ALL DONE THIS TEST 7 
TRAP CSEXIT 


-WORD L10046-. 


SEQ 20% 


a e—™ - 


L 16 
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SEG 2 


2+ 
;LOCAL STORAGE FOR THIS TEST 


71 BLKB 10-<.-TUV2A87> 










T26PACKET: :COMMAND PACKET FOR TEST 
14004 .WORD 14004 “WRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK 
5 “WORD T26DATA SADDRESS OF CHARACTERISTICS BLOCK 
1 “WORD 10. :STARTING VALUE OF BLOCK SIZE 
T26DATA: *CHARACTERISTICS DATA BLOCK 
ROBE 045740 -WORD T26BFR SADDRESS OF MESSAGE BUFFER 
865 se “WORD 20. :LENGTH OF MESSAGE BUFFER 
; 5740 T26BFR: -BLKW 25. sMESSAGE BUFFER 


“WRITE SUBSYSTEM MEMORY COMMAND PACKET 
r .BLKB  10-<.-TUV2A87> 





T26PK2: ~~ 
. WORD 190006 sWRITE SUB SYS MEM COMMAND, AND ACK 
"WORD T26BF ‘ADDRESS OF SELECT BLOCK DATA 
-WORD 6. sSIZE OF DATA PACKET 
winless _BLKB  10-<.-TUV2A87> 
$70 atiai " {WORD 140005 :REREAD COMMAND, CVC=1 AND ACK 
at T26WB: - WORD FREE sADDRESS OF WRITE BUFFER 
ak 12682: -WORD 0 sSIZE OF BUFFER (EXTENT) 
8715 ° 
871 T : 
+4) 010 T ears: BYTE 10, :BSELO AREA 
718 1 00 126BS1: .B 2 “BSEL1 AREA 
37 126S2: . ( ‘SEL 2 AREA 
87 00 12683: .WORD “DATA AREA 
‘ : EVEN 
-TAPE MOTION PACKET COMMAND VALUES 
R724 140001 T26RN: .WORD 140001 sREAD DATA 
R725 141401 “WORD 141401 “REREAD NEXT OPP=0 
37 6 7 161401 “WORD 1614 1 “REREAD NEXT OPP=1 
: 7% #177777 "WORD 177777 “END OF DATA 





sTAPE RECORD COUNTER STORAGE AREA 
;TAPE RECORD COUNTER STORAGE AREA 
SRECORD STORAGE SIZE AREA 

SDELAY COUNTER AREA 





a ey ed et 
PORIMINS 
Ssss 
GVO 
rm Ze 
= of 
ovuTTo 
oooco 





i re a - -  e ee ee ere eee ee 


B 1 
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8734 
8735 3 
of sLOCAL TEXT MESSAGES FOR TEST 
Hb | 
8740 086196 124 141 160 eASCIZ ape Position Incorrect After REREAD Previous (OPP=1)° 
122 105 122 eASCIZ RE EAD PREVIOUS, At BOT, Failed To Set NEF (xSTO)* 
8742 04 256 124 123 123 eASCIZ ‘TSSR Incorrect After R BEAD. DAT A Command’ 
the 046 3 \$6 105 \$6 eASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
744 046422 12 105 12 eASCIZ ‘REREAD Previous (Read Revere. Space Forward) Command Failed’ 
8745 046517 120 117 123 eASCIZ nie ane (Space Command) Failed, TSSR 1 Correct’ 
é 046601 122 111 198 : ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BO 
8747 rs 24: 124 123 12 : .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set 
8748 og 1 111 154 154 : ASCIZ pesegal “ode Bits, celles 9 Set ILC Bit In tsTO" 
49 047007 122 105 ice : eASCIZ ‘REREAD COMMAND Not ccopted 
8750 047043 124 123 12 : -ASCIZ ‘TSSR Not Correct Bava ITE BATA Command" 
8751 047115 124 141 160 : eASCIZ ‘Tape Not At “ Mag Mag on 
875 7162 104 141 164 eASCIZ ‘Data Written Tope Equal To Data Read From Tape’ 
875 7254 122 105 1g¢ eASCIZ s REREAD DATA MOVER EOT GAVE TAPE STATUS ‘ae 
8754 047327 124 123 12 eASCIZ ‘TSSR Not Correct After we COMMAND Reject 
8755 047404 122 145 167 : .ASCIZ ‘Rewind (POSITION) Command No cepted’ 
8756 047453 122 101 115 : .ASCIZ ‘RAM Error, Correct Data a eieen Not In. Ram’ 
8757 047526 124 123 123 : .ASCIZ ‘TSSR Init. Fa ‘lee After RERE 
8758 047575 104 162 151 : ASCIZ "Drive ? Select Failed. To Set Es. In TSSR° 
8759 997050 124 123 123 T26WDD: .ASCIZ ‘TS ATA Command, SWB Bit Set’ 
5760 Be -s 124 1$3 is T : Astle Command® 
761 05001 103 1 $ 1 T26VCK: .ASCI Buffer’ 
8762 050066 124 12 102 T26BA: .ASCIZ r 
8763 050141 127 122 111 T26WSS: .ASCIZ ted (RAM Read)’ 
8764 O206 122 145 141 T26LON: .ASCIZ r) nm xXSTO° 
5709 050312 122 145 141 T26LOP: .ASCIZ ing L Record Failed To Set RLS Bit In xXSTO° 
05037’ 122 145 163 T26PBP: .ASCIZ ount Incorrect After Short Record Read‘ 
ore 050462 122 145 141 T26TRL: .ASCIZ Give Tape Status Alert’ 
8768 050550 104 141 164 T26NEQ: .ASCIZ om Tape Not Correct, After SWB=1' 
Ha 050627 122 145 162 TST26ID: 
EVEN 
a77) . 
8773 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
Lhe 3WRITE SUBSYSTEM MEMORY COMMAND 
8776 $= 
8777 
8778 050640 T26REST: 
8779 050640 SAVREG sSAVE THE a gt HS 
8780 050644 012701 045720 MOV #T26PACKET,R1 “START OF THE PACKET 
8781 050650 012721 140004 MOV #16 R1)+ “WRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
ares Contes oie? 045730 MOV #T2QDaTA, (R1)+ *ADDRESS OF CHARAISTICS DATA BLOCK 
A, 5 005021 CLR oy d+ “EXTENDED ADDRESS 
05 4 4 000012 MOV 19 *SIZE OF DATA BLOCK IN BYTES 
5783 $308 127 045740 MOV ATco6rr (RI) ‘ADDRESS OF MESSAGE BUFFER 
878 3's Te 1273 000024 MOV #20. ,(R1)+ sLENGTH OF MESSAGE BUFFER 
8788 628 9 1 CLR (R1)+ 
ha 50702 012711 000000 MOV #0, (R1) sSELECT DRIVE ZERO (0) 
790 050706 012702 000030 MOV #24. ,R2 “NUMBER OF LOCATIONS TO BE CLEARED 








4 
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8791 05071 01276 177777 045740 64$: MOV #177777, T26BFR(R2) sALL ONES TO MESSAGE BUFFER 
879¢ 0507 TST =(R2) ‘NEXT LOCATION 
793 0507 000000 CMP R2,#0 “CHECK FOR END OF LOOP 
794, 0507 1 BNE 64$ ;KEEP GOING UNTIL DONE 
795 050 07 RTS PC * RETURN 
sr 
798 0507 2 T26RT2: 
8799 0 SAVREG :SAVE THE REGISTERS 
8800 950 abe 046030 MOV #T26PK2, R1 ‘START OF THE P 
1 05074 140006 MOV 140006, (R1)+ ‘WRITE SUBSY STEM. NER. ute ACK, CVC=1, 
8802 050746 0 34 046060 MOV a T26BF2, (R1)+¢ “ADDRESS OF DATA BLOCK 
950752 005021 CLR (R1)+ SEXTENDED ADDRESS 
4 50754 ot ? 000006 NOV #6. (R1)¢ *SIZE OF DATA BLOCK IN BYTES 
8806 50762 012701 046060 MOV #T26BF2,R1 :POINT TO DATA SEL AREA 
30766 005021 CLR (R1)+ 
050 005011 CLR (R1) 
50772 000207 RTS PC s RETURN 
10 050774 T26RT3: 
11 050774 SAVREG :SAVE THE REGISTERS 
12 051000 012701 046050 MOV #T26PK3, R1 “START OF THE PACKET 
8813 051004 012721 000000 MOV #0, ( “WRITE SUBSYSTEM MEM. WITH ACK, 
8814 051010 012721 000000 MOV #0. tRIDe 3AD ESS OF DATA BLOCK 
8819 51014 005021 CLR (Ri)+ XTENDED 
16 051016 012711 000000 MOV #0,(R1) :SIZE OF DATA BLOCK IN BYTES 
st 0510 000207 RTS PC s RETURN 
18 051 ENDTST 
051024 L10046: 
051024 104401 TRAP  CSETST 


ER ES EE ET TF RN LT AR 





ZTUYAO TU8O FRONT END PRT C 


a3 


CNOULSWA © 


—Ooeon 


ESSEREEre 
wi 


8856 
8857 
8858 
8859 051076 
8860 


SERERRRERERERE 
aasun— OOnaw = 


3: WRITE DATA RETRY 


000 
176750 
055666 


016644 


000250 


ae ee ee 


dD 1 
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002146 


002164 


055672 


-SBTTL TEST 3: WRITE DATA RETRY 


“THIS TEST VERIFIES PROPER OPERATION OF 3 WRITE DATA RETRY 
[COMMAND (SPACE REVERSE, ERASE, WRITE DAT 


“THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 





BGNTST ms 
CLR FATFLG CLEAR FATAL ERROR FLAG 
CLR KTFLG sHOLD OFF KT11 
MOV #EPRT2,EPRTSW sSECONDARY ERROR MESSAGE 
CLR KTENABLE “TURN OFF KT11 
JSR PC KTOFF ‘TURN KT11 BACK OFF IF THERE 
#T§T271D,RO “ASCII TRESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 'DO INITIAL TEST SETUP 
LOOPC RFORM 1 ITERA 


MOV °PE ONS 
CLR T27CNT ‘CLEAR TAPE RECORD COUNTER 


+ 


TEST 3, SUBTEST 1 






VERIFIES THAT A WRITE DATA RETRY COMMAND 
“THE TAPE IS POSITIONED AT BOT CAUSE 

* TERMINATION, WITH THE NON-EXECUTABLE FUNC 
ERROR BIT SET. 





T27LO0P: 
3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


ar C$BSUB 







SET COMMAND PACKET 
COMMAND PACKET 


JSR PC, T27REST 

JSR PC T27RT “SET UP OTHER 

JSR PC. TO7RT “SET UP OTHER COMMAND PACKET 
#63000. , T270LY ‘SET UP DELAY COUNTER 


MOV 
CLR T :CLEAR COUNTER 


SEARAAAAAAEAEREREAEEETEREEREEERERERAEAAREREARAEREERERERAAAAERAAEREEEEE 


;ISSUE CONTROLLER "'SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


“ 
SRRAAEAEAEEEEREEEEEEEREREEREREEEEARERAEERERAAEAAAAERAAAAAAAAEREREEE 


10$: JSR PC SOF INIT PR at ty get ON CONTROLLER 
DELAY ; :DELAY ABOUT .25 SEC 


MOV #250, (PC) + 
WORD 0 


SEO 209 


—— nnn 


cr Tytag 
TEST : 


eed eed ceed eed eed eed eed eed eed peo 


ONSRVE POR 


T 


™ 
mm 


MIVA) 


ed ced ced ceed ceed ceed cee cen ced eed cel ceed ccd ceed eed eed aod 
med 


sets 
BO 
OOOO OoOoOOOOoOOoOoOoOoOO 
WVU 
ovum 


VIVAL 


= 
© 


Monro 
ny 
rs 


ENSSANS 


seeeeeseneee 


& 


3 
— 
SOooooeooeee 


MVM AVIMMI UI 
ed eek ed eed ed med etd eb md men and 


Oo6o 

33 
NNRNNNINNN 
oo 


o3gee33 


aed cond sob mh 


NM 
= 
MJ 


Ono 
MOR 
oo 


SOooooooeoes]o 
Mrorng 
orn 
™ 


MMMM UII 
a ee eee ee ee 


SSE 


TU8O FRONT END PRT C 


DATA RETRY 


_ 
Ww 
~ 
™~ 


23383838 
+ 4 beam ed beneath 
ENT. 
=NANNNM 


— 
_ 
Ww 
Rv 


012704 


002116 
177772 
177756 
055672 
020100 


055510 


010332 
020100 


010434 


020100 


gs 
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20$: 


25$: 


T27DLY 


BC. FATCHC 
ERRNO, SF LERR, SF IMSG 


#T27PACKET ,R4 


MOV 
sRRERARAEREREEAARE TAREE HEATER EETEREEAEEATHEHEEERERE EERE Aeetetees 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
SRRARAAAAAERAEEAREAEEER ETERS EEEEEAEEEEEREEAERAAEEREEREEEEERERERERRE 


JSR PC ,WRICHR 
BCS 
ri ny PC ,FATCHK 


CKLOOP 


MO 
ERRHRD ERRNO,WRTMSG, SF IMSG 





MOV SOLY,(PC)+ 
DEC -6(PC) 
BNE 6 
DEC =22(PC) 
BNE 2 
:BUMP COUNTER 
“BR, IF COUNTER NO 
“INC AND CHECK FOR MORE THAN 25 ERRORS 
“CONTENTS OF TSSR REGISTER 
“FATAL ERROR TSSR WAS NOT OK 
SERDF 
WORD 1 
"WORD  SFIERR 
“WORD  SFIMSG 


; SUBROUTINE NEEDS PACKET ADDRESS 








s ISSUE WRITE CHARACTERISTICS 
F COMMAND 





; C 
*INC AND CHECK FOR MORE THAN 25 ERRORS 
“SAVE CONTENTS OF TSSR 
“WRITE CHARACTERISTISC FAILED 
TRAP § CSERHRD 
: 302 
“WORD WRTMSG 
“WORD SFIMSG 
sLOOP IF SELECTED 
TRAP  CSCLP1 


FAAESEAARAEAEAAAAEAE AE REEEEAAEAERAEEAAAAEEAAAEAAARAERAEARAERERAEREEEEE 


[ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
sRAEAAEAAAEAEREKEERERELEAAAAAAAERAAAAAAAARAEAAAAEREREEAEEAEAEE EERE 


PC REWIND 


30$: 


JSR 
BCS 


V 
JSR 
ERRHRD 


CKLOOP 


$ 


oR4 
PC ,FATCH 


ERRNO, 


CHK 
T27RWN,PKTSSR 


sCALi TAPE REWIND COMMAND 


“BR 

“SET UP REWIND PACKET ADDRESS 

“INC AND CHECK FOR MORE THAN 25 ERRORS 
“REWIND NOT ACCEPTED 


RAP CSERHRD 
WORD 305 
-WORD T27RWN 
WORD PKTSSR 
sLOOP IF SELECTED 
CSCLP1 


SRAAEEEAEAEEEREREEEEEEAEEEERAEEEAAAAAARRARAEAEAAAAAERAAAAAERAEERAEEEE 


“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
{AREA EAAAAAAATAAAEARAETAEEEEEREAERARAERARERRERAARARARAERERRERARE REE 


SEQ 210 


| 
| 








CZTUYAO TU8O FRONT END PRT C 
TEST 3: 


3: WRITE DATA RETRY 
8923 051270 013701 055536 
8924 051274 01010 
8925 051276 052702 000002 
pa $ 1 6 10 
051 14 
8928 051 004737 020100 
8&9 Bat 1 
e3. \¢ 104456 
051316 O565¢ 1 
051 016 
8933 051322 
ot 2 104406 
pits: 1324 012737 006400 
8935 051 013737 003072 
8938 
89 
8940 
8941 Eat re 012737 141005 
8942 051 012704 055640 
ooer EAE ESS 010465 177776 
51 328 004737 017120 
8945 051 016501 
8946 051 012702 100206 
8947 051 020102 
8948 051374 001406 
o9e8 03177, 004737 020100 
3 0514 
051402 104456 
051404 $! 
051406 056452 
051410 011700 
8954 pete1s 
051412 104406 
8955 
8957 
8959 
8960 oateis 073701 055536 
8961 051420 010102 
soe 051422 052702 002000 
Bate 020102 
se: 51430 0014 
5 051432 004737 020100 
8969 0514 
0514 104456 
05144 
051442 060211 
pre: 016344 
8970 051446 
31446 10440 
89, 31430 023797 002170 
r8 31260 004737 020152 
8974 051464 
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000031 


408: 


75$: 


MOV 
MOV 
BIS 
CMP 
BEQ 


JSR 
ERRHRD 


CKLOOP 


mo 
MOV 


T27BFR+6,R1 
R1,R2 
#BIT1.R2 
R1,R2 


PC ,FATCHK 
ERRNO, T27BOT ,EXPREC 


F 1 


#256. ,T27SZ 
FREE. 


MOV #141005, 127PK 
MOV 27PK3.R 
MOV , TSDBCRS 
JSR PC WAITF 

MOV TSSR(R5S) 





CKLOOP 


75$ 


R1 
#SSR'SC'B1T1!81T2,R2 
R1R2 


JSR PC ,FATCH 
ERRHRD ERRNO. TOPUDE .PKTSSR 








sPICK UP XSTO 
‘SET UP EXPECTED 
“SET BOT BIT IN EXPECTED 
“DOES EXP = REC'D 
“BR, IF EQUAL (OK) 
‘INC AND CHECK FOR MORE THAN 25 ERRORS 
‘TAPE NOT AT BOT AFTER REWIND 
TRAP SERHRD 
WORD 
"WORD 127B0T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP  CSCLP1 


sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 


* 
SEAAEEAAAAAAAAAAAERAAAEAKEREREEAERARAEEEEERERERE 







COMMAND 
T_FOR SSR_TO SET 
SSR oe 


K FOR MORE THAN 25 ERRORS 
CT AFTER READ DATA 
TRAP oe 


T27WDE 
PKTSSR 


sLOOP IF SELECTED 
CSCLP1 


TRAP 


© RAEEEEAAAAEAAAAEATAAEKAEEAESEAAEAAAARAARARAAAAAAERARERARAAAEEAAAEREE 


BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


MESSAGE 
sR SREERREARETEATETEREETEAAAEATEAAERAERRERAAAETREASEeeeeteeteeAtt 


READ 


170$: 


MOV T27BFR+6,R1 

MOV R1,R2 

BIS #pitto.r2 

BEQ 76$ 

JSR PC, FATCHK 

ERRHRD ERRNO, T27NEF ,EXPREC 
ENDSUB 

CMP FATFLG,#25. 

BLT 999$ 

JSR PC, CKDROP 


sGET XSTO STATUS WORD 
sSET UP EXPECTED 
sSET THE NEF BIT 





TRAP SERHRD 

-WORD 

-WORD T2/NEF 

eWORD EXPREC 

L10067: 

TRAP 
s1S ERROR COUNT AT ¢5 
sBR, IF LESS THAN 2 
sTRY TO DROP THE UNIT 


CSESUB 


SEQ 211) 


| 


TEST 


sr 


8979 


RN 


Spessgsessesess Seesseaes 


Soooocooooeoco 
MAUI 
vowed ceed ceed sed ed ok coed cool oot ad ow 


MIMI 
Oko 


and and ond od 
QOS 


EEEEEEEE ESE 


cand cond cod enh aon ed ed wond od aed 


PWODNAULS WN 


MAMMA) 


gg g 





CZTUYAO TU8O FRONT END PRT C 


: WRITE DATA RETRY 


016644 
020100 


055510 


010332 
020100 


ee ee ee ee ee; 


G 1 
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STEST 3, SUBTEST 2 


VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
im ait at THE REVERSE INTO BOT (RIB) STATUS 





& 
: BGNSUB 3>>>>>>>>>>>> BEGIN, SUBTEST >>>>>>>>>>>> 


TRAP C$BSUB 





JSR PC, T27REST SET COMMAND PACKET 
JSR PC,T phts sSET UP OTHER COMMAND PACKET 
JSR PC, T27RT SET UP OTHER COMMAND PACKET 


SRAAAAEEAAAERAAAEEEREEEEEREAEEAEEAAEAEEEEREEEREREREEEREEEEREEEREEERE 


SISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


: 
SERAAAAEAAAEAAEAAREEAESEEEEEAEEAERERAEAEEEAAEEEAAEREREEEAEEREEREEREEE 


JSR pala 300 INITIALIZE ON CONTROLLER 
BCS BR 














“BR IF INIT WAS 
JSR PC ,FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV R “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK ti 
.WORD 307 
“WORD  SFIERR 
“WORD SFIMSG 


20S: 
MOV #T27PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


SRAAREERERERAEEEREREEEEEEEERESEREEAEAAAERAAEEAEEEREREEEERAEEEREREEE 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PITTI Ti TiTitiiiiiitiitttiiiiii iit 
JSR PC WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 25§ :BR c ISSUED OK 
CHECK FOR MORE THAN 25 ERRORS 


JSR PC ,FATCHK : INC_AND 
MOV ROR SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC — 





_ 






WORD WRTMSG 
-WORD SFIMSG 
25$: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


SRAEEAAAAAAEAEREREAAEEEAEEAAEAEERARAAAEAAAARERAARERAAERAAAAERAEREARE 


SEQ 212 





CZTU 


woke 
oo 


ad 


98222228222 
20009 


TUYAO TU8O FRONT END PRT C 
ST 3: WRITE DATA RETRY 


H 1 
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ene eC 


* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


+ 
sRERRAAAEEAEREEEAAEEEEEE EEE AERERERERAEEAEEEREERERAAERERERREREAEES 








SEQ 213 


51560 004737 010434 JSR PC REWIND :CALL TAPE REWIND COMMAND 
51 103411 BCS 26$ ; 
51 010004 MOV RO.R4 “SET UP REWIND PACKET ADDRESS 
51570 016501 MOV TSSR(RS) ,R1 “GET TSSR CONTENTS 
51574 004737 020100 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
1 051606 ERRHRD ERRNO, T27RWN,PKTSSR “REWIND NOT ACCEPTED 
051600 104456 SERHRD 
051 000465 . WORD 
051604 057049 “WORD T27RWN 
051606 11700 “WORD PKTSSR 
9042 05161 26$:  CKLOOP sLOOP IF SELECTED 
051 19 104406 RAP C$CLP1 
9043 051612 012703 000400 MOV #256. R3 sSTARTING RECORD $1Z 
904% 051616 013737 003072 055642 MOV FREE, 127WB sSTARTING WRITE BUFFER ADDRESS 
904 SRERAAAAERAAEAAEREREEEEEEEEEEEEEEEEEEEAEREEREEREREERERAEREREEEEEREE 
904 ; 
9068 “WRITE DATA, CVC=1,ACK COMMAND 
9050 ‘RHRAReeeERERReeKERE HEHE ERETEHAAEREREEAERTRERAAAEREEEEAAEEEEAEttht 
9051 
9052 051624 012737 140005 055640 MOV #140005, T27PK3 sWRITE DATA, CVC=1,ACK COMMAND 
on28 O31682 015506 osseso MOV Ab ies ie *SET UP R4 WITH PACKET ADDRESS 
9054 051636 010337 055646 MOV 3.12782 “SET UP RECORD SIZE IN PACKET 
9055 051642 010465 177776 MOV R4,TSDB(RS) ; 
9056 31646 004737 017120 JSR PC .WAITE : 
9057 05165 016901 MOV TSSR(R5) RI : 
9058 051656 012702 000200 MOV #SSR_R2 : 
9059 051662 020102 CMP R1Re ; 
9060 051664 001406 BEQ 28$ ; 
9061 051666 004737 020100 JSR PC FATCHK : OR MORE THAN 25 ERRORS 
9065 s CAUSE T 
9066 : T BEING CHECKED 
906 “HERE. IT WAS KED IN CZTUXA 
9068 051672 ERRSOFT ERRNO,WRTERR,PKTSSR *TSSR INCORRECT AFTER WRITE DATA 
051672 104457 TRAP  CSERSOFT 
051674 000466 .WORD 31 
051676 005011 “WORD WRTERR 
051700 011700 WORD PKTSSR 
9069 051702 28$:  CKLOOP sLOOP IF SELECTED 
mae 051702 104406 | TRAP CSCLP1 
pata Ss RERAAARERAREAAREEEEAEEEEEEEEEAAAAEAEEREARERERAEREREERAEREREERRRERERE 
$073 ‘ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
Done PITTIIIT TIT itt itititifiiiiiiiiii iii tot 
9077 051704 737 010434 JSR PC REWIND :CALL TAPE REWIND COMMAND 
9078 31710 3411 BCS 30$ “BR, I 
9079 051712 016501 000000 MOV TSSR(RS) -Rt “GET TSSR CONTENTS 
51716 01 MOV RO,R4 *SET UP REWIND PACKET ADDRESS 





A ae TU80 
TEST 3: WRIT 


seseesseecseee & 
SSS3S993 


Oooooo 
VIM 


©o0o oO 
= ot 
Wea & 


VIVA 
os 
Mo 


IL IOIEL IONS 
ALMNALS 


BA) a a ad ed ed ed td td = 
Wom Nana WM—O Dee 


oooe 


ooo 
MMMM 





RONT END PRT C 
DATA RETRY 


004737 
10445 
67 
045 
071700 
104406 


38 
fo NN 
on WSSSSS 


Sa 
OO “S 


oS 

_ 

“IN 

Wo 
NM=WaIw 


020100 


055536 
000002 


020100 


000001 
010140 


000000 
000200 
020100 


Ra 
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JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27RWN,PKTSSR “REWIND NOT ACCEPTED 
CSERHRD 
.WORD 311 
“WORD T27RWN 
“WORD PKTSSR 
CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


SRERAERAAEARERAREREAAEEEREE AREER RARARAERERERAAEAEERARAEEEERERRAEES 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


* 
SERA ERARAEAEAAEAAEEREEAETEEEEEEEERAAAARAERAEAAAEAAREREREREREEERAEREE 


MOV T27BFR+6,R1 

MOV R 

BIS #BIT1,R2 
R1_R2 


sPICK UP xSTO 

°SET UP EXPECTED 

*SET BOT BIT IN EXPECTED 

“DOES EXP = REC'D 

“BR, IF EQUAL (OK) 

“INC AND CHECK FOR MORE THAN 25 ERRORS 
“TAPE NOT AT BOT AFTER REWIND 


§ RHRD 
- WORD 1 
-WORD 12/7B0T 
WORD EXPREC 
TRAP CSCLP1 


JSR PC ,FATCHK 
ERRHRD ERRNO, T27BOT,EXPREC 


CKLOOP sLOOP IF SELECTED 


SRARAAEAAERERAREASEEEEEEEEAAEEEEAEREREREERARERERERERAREREREEREREEEE 


ZISSUE_SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 


# 
SERERARAEAAAEEAERAEEEEREREEEEEEEREEEREAAREEREEEEERERAEERRERREREREEEE 


1T=REVERSE 


sPARAMETER SPACE FORWARD 1 RECORD 
*CALL SPACE RECORDS ROUTINE 

“BR, IF NO ERRORS 

*GET TSSR CONTENTS 

“SET UP EXPECTED 

*SET UP REWIND PACKET ADDRESS 
sIN HEC MORE THAN 25 ERRORS 
SSPACE RECORDS COMMAND FAILED 


MOV #1,R3 

JSR PC SPACE 
MOV TSSRCRS) RI 
MOV #SSR ,R2 


JSR PC. FATCHK 
ERRHRD ERRNO, T27SCF .PKTSSR 


CSERHRD 
WORD 31 
WORD T27SCF 
-WORD PKTSSR 
CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


SRRAAEAAERERERERERERERAREEEEEREREREAEAEREREERERRERERERERREEREREREEEE 


TISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD E 


: 
SERRA EEEEEEAERAAAEREEAE AE AT EAERAEREAARAERAERAEAAARERARAERARERARARRERERS 


T=REVERS 











J 1 


CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 102-5 
TEST 3: WRITE DATA RETRY 








9133 052034 0127 3 100001 MOV #100001 R3 sPARAMETER SPACE REVERSE 1 RECORD 
9" 004737 010140 JSR SPACE 3 CALL SPACE RECORDS ROUTINE 
9155 103413 acs IF NO ERRORS 
9134 05 16501 000000 MOV TSSR(RS) RI °GET TSSR CONTENTS 
9137 05 i 702 000200 MOV #SSR,_R2 *SET UP TE 
91 3 1 MOV WRG *SET UP REWIND PACKET ADDRESS 
9139 7 020100 JSR PC FATCHK *INC AND CHECK F ETHAN 53 ERRORS 
9143 05 ERRHRD ERRNO, 127SCF,PKTSSR “SPACE RECORDS COMMAND’ FAILE 
05 1044 TRAP SER RHRD 
03 00047 WORD 
5 06030 “WORD TO 7SCF 
052072 011700 “WORD PKTSSR 
9144 052074 60$:  CKLOOP sLOOP IF SELECTED 
52074 1044 TRAP  C$CLP1 
9145 052076 013737 003072 055642 MOV FREE, T27RB sADDRESS OF BUFFER 
9147 jteneenenenaeneeserettetterertnnnnentenanentenneennennensnennenenes 
9148 
2149 ;WRITE DATA RETRY.ACK,CVC=1 COMMAND 
9151 PPPTPPTTTTT TTT TTT CTTTTTTTTITTTTT TTT, 
9153 052104 012737 141005 055640 MOV #141005 T27PK3 sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
9154 05211 012757 000400 055646 MOV Te “SET UP THE SIZE OF RECORD 
9155 3 120 012704 055640 MOV #T27PK BES” R4 *SET UP R4 WITH PACKET ADDRESS 
9196 052124 010465 177776 MOV R4, TSDB(RS) ‘ISSUE COMMAND 
9157 052130 004737 017120 JSR ‘WAIT FOR SSR TO SET 
2158 52134 016501 000000 MOV TSERCR “GET TSSR CONTENT 
15 52140 O1 702 100204 MOV Beth *SET UP EXPECTED TAPE STATUS ALERT 
160 052144 10 CMP *ARE THEY EQUAL 
9161 05 146 001406 BEQ “BR. IF OK 
ge 52150 004737 020100 JSR “INC AND CHECK FOR MORE THAN 25 ERRORS 
9166 052154 ERRHRD PAEATCHE “TSSR INCORRECT AFTER READ DATA 
52154 104456 TRAP =O 
2 1 7 : 15 
1 364 : 27T 
52162 011700 “WORD PKTSSR 
9167 052164 180$:  CKLOOP sLOOP IF SELECTED 
52164 104406 TRAP  CSCLP1 
91 3 166 13701 055544 MOV T27BER+4, ARI sGET XST3 STATUS WORD 
91 1 10102 MOV “SET UP EXPECTED 
9170 052174 052702 000001 BIS wait0, R2 “SET THE RIB BIT 
9171 3 10 CMP *ARE THEY EQUAL 
gi 7¢ 1406 BE “BR. IF EQUAL (GCOD) 
9173 05 004737 020100 JSR *INC AND CHECK FOR MORE THAN 25 ERRORS 
9177 052210 ERRHRD ERRNO TOTNER ,EXPREC “NEF SHOULD BE SET 
3 19 104456 TRAP 
1 90047 WORD 
52214 @! “WORD 
52216 016344 “WORD 
gt78 5 190$: 
91 2 ENDSUB 2>>>>>>>>>>>> a aa >>>>>>>>>>>> 
5 1 403 CSESUB 
91 3 727 002170 000031 CMP FATFLG,#25. :1S ERROR COUNT M 25 
9181 2402 BLT 999$ 3BR, IF LESS THAN 2 
31 3 737 (020152 cn JSR PC, CKDROP “TRY TO DROP THE UNIT 


CZTUYAO TU8O FRONT END PRT C 
TEST 3: WRITE DATA RETRY 


VAMMMAM MAUI 
— 





1 
1 
1 
1 


; 
5 
: 
5 


—y 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


MMVIVMIVMIMIUMIVILNU 
BESeNesonoe 


ne 
Al 
A 


3 


060644 
060736 
061000 


016644 
020100 


055510 


010332 
020100 





K 1 
SEQ 216 
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3 TEST 3, SUBTEST 3 


:VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0 
: TERMINATES PROPERLY AND iS CORRECT DATA ON TAPE 
7 (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
:BY TE COUNTS AND DATA PATTERNS ARE USED. 





BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
vl CSBSUB 

JSR PC, T27REST sSET CCMMAND PAC 

JSR PC, T27RT :SET UP OTHER COMMAND PACKET 

JSR PC, T27RT sSET UP OTHER COMMAND PACKET 


RARER AAAEAEEAEREEEEEREEAEEEAAAEERAREERAAEEEEEEEREREREEEREREERERE 


* ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


# 
SAREE AAAAEAAAAEEAEEEEETERERERAEAAERERREREREEEREREEEEEEREREREREEES 


JSR — D0 INITIALIZE ON CONTROLLER 






Bcs 

JSR PC FATCHK FOR MORE THAN 25 ERRORS 

MOV R 

ERRDF ERRNO, SFIERR,SFIMSG 

SERDF 

WORD 317 
“WORD SFIERR 
WORD  SFIMSG 





20$: 
MOV #T27PACKET RS : SUBROUTINE NEEDS PACKET ADDRESS 


SRARAAAAAAEAAEREEEREREREEEERERERAEREREEEAEEERAEREEREREREEEERERERERE 


3WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
SREREAAERAEAAEAEEEAEEEEEREAEEEERERAEAAEERAERAAEREREREREEEREREREREEREE 





eC URTCHR 3 ISSUE WRITE CHARACTERISTICS 
“BR, IF COMMAND SUED OK 
PC, FATCHK *INC AND ¢ F°> MORE THAN 25 ERRORS 





;SAVE_ CONT 


R1 EN NTS - T 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 





TRAP RHRD 
- WORD 1 
WORD WRITMSG 
WORD SFIMSG 


25$: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


SRREREERAEREREREREEEEEEEEREEEEERARAEARARAAERERRERERERAAEAERAEARER ARE 


: 
9 
0 
41 
924 
4 
44 
48 
0 
5 
5 
9249 ; 
50 
9 33 
9 
5 
3 
g 59 
3 7 
7 
9 
& 
304 
4 
5241 
5241 
5241 
2 414 
420 





RONT END PRT C 


DATA RETRY 


010434 


020100 


055536 
000002 


020100 
003072 


5 
0 


5 
085646 
177776 
009000 


020100 


MACRO 1200 


055642 


055640 


= 
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s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


* 
SRAAAAAAAAAEEAEARAAEE EEE EAE EEEEAAEAAEEAEREAAEERAEAARAEEAETERAERAREES 





MOV 
ERRHRD 


30$: CKLOOP 


PC 
308 


pc erAT SO TRUN, PKTSSR 


REWIND 


+ CALL TAPE REWIND COMMAND 


NO PROBLEM 

‘SET UP REWIND PACKET ADDRESS 

SINC AND CHECK FOR MORE THAN 25 ERRORS 
“REWIND NOT ACCEPTED 








WORD T27RWN 
«WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CSCLP1 


SRARAEARERERRARAREREEEREEREREEERERRERREEAERERAREREREERAEERAEERERERE 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
SRAAAARARAEAERARERESEEEEEEEEEEEEERAEREEERERERERERERERRAEEEEEERREREE 


MOV 
MOV 
BIS 


CMP 
BEQ 
JSR 
ERRHRD 





40S: CKLOOP 





ree a 


R 
weit »R2 
R1,R2 


C FATCH 


ERRNO, TO TROT, EXPREC 


& 0. R 
Ree. 13 7uB 


sPICK UP_XSTO 
sSET UP_EXPECTED 
3SET BOT ease EXPECTED 





T SERHRD 

2 WORD 

-WORD Tf T 

WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sSTARTING RECORD SIZE 
STARTING WRITE BUFFER ADDRESS 


SRERREAAAEEERAAEEREEEEAEREREEEEEAAEAAEAEREARARAERAEAREREEREREREREERE 


3WRITE DATA,CVC=1,ACK COMMAND 


e 
ERRRERAEREERERAAEREREEEEAEEERAERARAAERAEEREEEAEAEREEEEREEREERERAEEE 


65$: 





Ae7PKS. eat 





PC ,FATCHK 


sWRITE yg ge COMMAND 
7SET UP_R4 WITH PACKET ADDRESS 
SET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
UP RECORD SIZE IN PACKET 







FOR MORE THAN 25 ERRORS 
NERATED BECAUSE THE 


cs RHRD 








SEQ 21 


mn 1 


CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 103-2 
TEST 3: WRITE DATA RETRY 


SEQ 218 


ERRSOFT ERRNO,WRTERR ,PKTSSR 





80S: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 


S RERAAAEREREEAARRAEEEEE EERE EERE REAEEERRERERERAREREEERERREREREERAEEE 


“WRITE DATA RETRY,CVC=1,ACK COMMAND 


° 
SRAAAEAEEREREREEEAAEEEEEE EERE EEEEREREEEEEREREERRREREREREREEREREERRRE 





























141005 055640 #141005 T27PK3 :WRITE DATA RETRY,CVC=1,ACK COMMAND 
177776 R4, TSDBCRS) s ISSUE C 
017120 PC .WAITF “WAIT FOR.SSR TO SET 
TSSRCRS) RI “GET TSSR CON 
00 #SSR_R2 °SET 
Ri ,Re : 
020100 PC .FATCHK : FOR MORE THAN 25 ERRORS 
ERRNO, T27WRF .PKTSSR : T AFTER WRITE DATA RETRY 
TRAP RHRD 
. WORD 
“WORD T27WRF 
-WORD PKTSSR 
90S: sLOOP IF SELECTED 
TRAP  CS$CLP1 
(R3)+ sBUMP RECORD SIZE COUNTER 
000050 RS #40. sAT 40 SIZE YET 
65$ “BR, IF MORE RECORDS TO WRITE 
SRRAAEEAEAEEERAEE AREER AEEEETEEEEEREREEERERAEERAEAAERREEEEREREREREEERES 
“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
<< ReRAEREEAAREEAHEEERERETEEEEEEAAAERERAARARAAAAEAARERAARAEE THEREEEE 
5 737 010434 JSR BC REWIND SCALL TAPE REWIND COMMAND 
BCS 2 *BR, IF NO FROBLEM 
610001 MOV RO,R1 “SAVE T 
020100 JSR PC FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRN::. T27RWN,EXPREC “REWIND NOT ACCEPTED 
RAP 7 RHRD 
5 . WORD 
7045 “WORD T 
9335 : 230$:  CKLOOP LOOP IF SELECTED eussialie edna 
5 104406 TRAP  C$CLP1 


© REREAEEAEEEEEEAEAEEEEEEEEEEEEEEEEEREREEAEREREEEEEEEEEEEAEREREREREEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


O0O000 


So 





CZTUYAO TUSO FRONT END PRT C 
TEST 3: WRITE DA‘A RETRY 


ee 
r 5 

35646 000804 
O16344 


12737 

127 

is 
7 


es 





9377 


oo 


0000000000 
w 





055536 
000002 


020100 


003072 


020100 


N 1 
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055642 


055640 


£ REARERAAAEAAEAAAREAA TEES AEA AEAAEEARERAEAERAEAAAAERERERERAAEERAEEE 





240$: CKLOOP 


T27BER+6,R1 


#Bitl .R2 
266$ 


PC ,FATCHK 
ERRNO, T2780T ,EXPREC 


#20.,R 
FREE TOTRE 


CK UP _xsTO 


ou 





MORE THAN 25 ERRORS 
FTER REWIND 
TRAP 


RHRD 
te, i 
WORD 1T27B0T 
WORD EXPREC 
CSCLP1 


BR 
"INC AND CHECK F 
NOT AT BOT 





sLOOP IF SELECTED 


sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


© RAAAEEAAAEERAEREAEEEEAEEETEEEEEEEEEEEREEAEEEAEEEKARAEEEREEEREEEEREREE 


READ DATA,ACK COMMAND 


° 
SRARERARERERAEREREREEEEREREEERERERAEEEEEEEREREE ERE AEEREEREEEREEEREE 


265$: 


280$: CKLOOP 


UB 
285$: ADD 


290$: CKLOOP 


#190001 ,T27PK3 
#T27PK3,R4 
R3, 12752 


R4. TSDB(RS) 

PC WAITF 
TSSR(RS) RI 

#SSR,R2 
80$ 


PC, FATCHK 
ERRNO, RDERR,PKTSSR 


FREE ,R2 
R3,R4 

ago, m4 
(R4),R3 
(R4) RI 


PC FATCHK 
ERRNO, T27DTA, EXPREC 





sREAD DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
fee RECORD SIZE IN PACKET 


OMMAND 
IT FOR SSR_TO SET 
T TSSR CONTENTS 
SET UP EXPECTED 
THEY EQUAL 





IF OK 
NC AND CHECK FOR MORE THAN 25 ERRORS 
SSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 


-WORD RDERR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sGET BUFFER ADDRESS 
sGET RECORD SIZE 
sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC _IN BUFFER 
:DATA_ WRITTEN = READ 
;BR, IF DATA OK_ (GOOD) 
; UP_BAD DATA 
sSET UP EXPECTED 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sDATA IN BUFFER NOT ee 


AP CSERHRD 
WORD 5 
WORD T2/DTA 
WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSCLP1 


SEQ 215 


B 2 

CZTUYAQ TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 103-4 
TEST 3: WRITE DATA RETRY 

9392 05301 5724 TST (R4)+ 

8398 ossols | se000e ee ORD URS 

9394 05301 030203 CMP R4_R3 

9 1 BNE 28s 

9 5 003748 TST (R3)+ 

9398 O3080 OOrsI? oe ORGS EO 

-) 104606 390$: CKLOOP 

9400 330S: 

9401 05 ENDSUB 

08 1 403 

9402 5 0 37 7 002170 000031 CMP FATFLG,#25. 

9403 05 40 BLT 

9404 05 : 004737 020152 JSR PC,CKDROP 

9405 05305 999$: 





sBUMP TO NEXT wih 
sBACK TO RECORD SIZE 
sAT END OF RECORD YET 
sBR, IF MORE DATA TO CHECK 
‘BUMP RECORD SIZE 
:DONE YET 
sBR, IF NOT DONE YET (MORE READS) 
‘LOOP IF SELECTED 

TRAP CSCLP1 
3>>>>>>>>>>>> END suetest >>>>>>>>>>>> 

L10071: 
CSESUB 





SEQ 220 





rs 
2 


Eeereeeere 
WONOUSWR—O 


FER 
epee 


35 


in 


BEEEE 


RRR 
Bans 


_ 
a 
aN 
hMrw 
~~ Ow 


ooo 
at CS ad 
WSR 
Non 
~ 


esgesese 
SN 
R SURAT IS 


: 


CZTUYAO TU8O FRONT END PRT C 
TEST 3: WRITE DATA RETRY 


016644 


000250 
002116 
177772 
177756 
055672 
020100 


055510 


010332 





ee re a ee eee eee 


tC é 
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-+ 


TEST 3, SUBTEST 4 


; VERIFIES — A WRITE ye ta COMMAND WITH SWB=1 
; TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
:(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
:BYT E COUNTS AND DATA PATTERNS ARE USED. 








BGNSUB $>>>>>>>>>>>> wat. at SUBTEST >>>>>>>>>>>> 
CSBSUB 

JSR PC, T27REST sSET COMMAND PACKET 

JSR PC, T27RT SET UP OTHER COMMAND PACKET 

JSR PC,T27RT SET UP OTHER COMMAND PACKET 

MOV #65000. ,T27DLY “SET UP DELAY COUNTER 


SRRAAAAAAAAEAAEAAAAEAEEE ERE AEEEEEEREAEERRERERERAEEREEEEREEREEREEEEESE 


SISSUE CONTROLLER ‘‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


a 
SRRAEAAEREREAEERAEEEEEEEEEEEEEAERAEAEAAAEAAEAAERAEERAAEREREEEREREEE 


10$: JSR PC SOF INIT :D0 INITIALIZE ON CONTROLLER 

BCS $ :BR IF INIT WAS OK 

DELAY 0 :DELAY ABOUT .25 SEC 
#250, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 
-22(PC) 
720 





DEC T27DLV 

BNE 1 

JSR PC ,FATCHK 

MOV RO.R 

ERRDF ERRNO,SFIERR,SFIMSG 


TER 
R NOT DONE 
CHECK FOR MORE THAN 25 ERRORS 
ONTENTS OF TSSR REGISTER 
WAS NOT OK 










I 
>C 
;FATAL ERROR TSSR 





CSERDF 
-WORD 7 
-WORD SFIERR 
-WORD SFIMSG 


20$: 
MOV MT27PACKET RS ;SUBROUTINE NEEDS PACKET ADDRESS 


SRAAEAEEREARERREEEEEEEERERERAEEEERERAEEEARAKEAAAEEAEAERAREERAEEERES 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
SRERERAEAEAREREEEAEERERE RE EEEEEEAEAAERAARERAAEEAERERAEREREERERARRERES 


JSR PC WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 23$ IF COMMAND ISSUED OK 


dD 2 









SEQ 222 
MACRO M1200 29-MAR-83 13:43 PAGE 104-1 4 
JSR —s PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS | 
MOV RO-R “SAVE CONTENTS OF 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
TRAP cs RHRD | 
"YORD WRTMSG | 
F SF IMSG 
23$:  CKLOOP sLOOP IF SELECTED 
TRAP CS$CLP1 
SRAAAAAAAAARARAAAAEREREAEAAEEEEAAAAAAEKAEAAERAAAERAEEEREREAAEEREEREE 
‘ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
IT TIIIIitiiiiiitii iit iii 
9467 053212 004737 010434 JSR PC REWIND :CALL TAPE REWIND COMMAND 
9468 16 103411 BCs “BR, IF NO PROBLEM 
9469 053220 016501 000000 MOV TSSR(R5) R1 :Gef TSSR CONTENTS 
9470 053224 010004 MOV PACKET ADDRESS 
9471 05 004737 020100 JSR CHECK FOR MORE THAN 25 ERRORS 
9475 05 ERRHRD pC aFAT FO FRUN PKTSSR “REWIND NOT ACCEPTED 
05 104456 T 
053234 000511 
053236 057045 T272WN 
053240 011700 “WORD PKTSSR 
9476 09526¢ 30$:  CKLOOP sLOOP IF SELECTED 
053242 104406 TRAP  CSCLP1 
ph: } SEATAAAAAAAEAAAEAAAAAAAAEREEAEAELAALAAAAAREREAAAAEAARALARAAALARAARAEAEEE 
9480 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
oeas : EAEKAASAAETAAAAAAKAEAEEETAESATAALAAAEAEAAAARAAAAAARARAERAAACAARERAARAEAEE 
9484 053244 013701 055536 MOV T27BER+6. RI :PICK UP XSTO 
9485 053250 010102 MOV SET UP EXPECTED 
9486 053252 052702 000002 B1S ait. R2 ;SET BOT BIT IN EXPECTED 
9487 053256 020102 CMP R1,R2- “DOES EXP = REC'D 
9488 053260 001406 BEQ co BR, IF EQUAL (OK) 
9489 05 004737 020100 JSR ?INC AND CHECK FOR MORE THAN 25 ERRORS 
9493 05 eRRHRD ERRNO To7BOT, EXPREC “TAPE NOT AT BOT AFTER REWIND 
05 104456 TRAP § CSERHRD 
053270 000512 .WORD 330 
09 72 056541 -WORD T27BOT 
74 016344 “WORD EXPREC 
9494 053276 40$:  CKLOOP sLOOP IF SELECTED 
09 76 104406 CSCLP1 
9495 05 012703 000024 MOV #20. .R3 sSTARTING RECORD SIZE | 
9496 053304 013737 003072 055642 MOV FREE.127WB “STARTING WRITE BUFFER ADDRESS 
ats SRAAEEEEAE eA AEAEAAEAEEEAEAEEAAERARAEARAERAAREAEARAAARERAAAEAATAAREEAREE 
9500 “WRITE DATA,CVC=1,ACK COMMAND 
950 ‘Sethe eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeAkeaeeeakakeeeeeneeereeerere 





TEST 


2 Hi 


auee 


RAD 


eed weed ered eed ced ed ond 


ARAAARAAAA 
OViFWN-"O 


$33 
w 
SNaee 


053376 

9286 

9525 

95 

9527 

95 

95 

95 

etd 0300 

si ut 

9534 053416 

9535 053422 

95 Oe 

9537 05 

8 Bue 
us 
053440 
053442 
053444 

9543 053446 
05 

9544 

9545 05545 

2248 053456 

9547 

9545 

9549 


oO 
wi 


RBRAAS 
RURWVIO 


AA 
333 


pasate 
wESSssuc. 


ooo 
oer 
RSe 


o> 
SUE 
SSS 


CZTUYAO TU8O FRONT END PRT C 
: WRITE DATA RETRY 


140005 055640 65%: 
055640 


Oe0sle 
6 
177776 
017120 
200 


020100 


000050 


010434 


055640 





g ¢ 
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MOV #14 oT27PK3 
my OE 





MOV R3,R 
JSR PC. FILLMER 
MOV R3,127S2 
MOV R4.TSDB(RS) 
JSR 

MOV TSSR(RS) RI 
MOV #SSR,R2 
CMP R1 RD 

BEQ 80 

JSR PC ,FATCHK 


ERRSOFT ERRNO,WRTERR,PKTSSR 


80$: CKLOOP 


me —_—— 





@e te Se 
glee bee Loe 
| 


mm ees 
wmeemm 


Somme 
Mma 


LSS beer 
94: 
~ 
: 
fa 


LOOP IF SELECTED 


TRAP CSCLP1 


SRRAAAAAAAAAAAAEAAESEAEEEE ESE EEAEAAEAAAEAERERAEEEAEREREREREERAEEEREEE 


:WRITE DATA RETRY,ACK,SWB=1 COMMAND 


. 
SRRARE CAAAREAEKEAEREEEAEEER EEE REREAERAEEAAERAEREREREREREREEREREREEE 





MOV #111005 127PK3 

MOV R46, TSDB(RS) 

JSR 

MOV TSSRCRS) RI 

Cm ORT RS 

JSR icine 

ERRNO, T27WRF ,EXPREC 

90$: CKLOOP 

TST (R3)+ 

CMP RS #40. 

BNE 65$ 


WRITE DATA RETRY, ACK,SWB=1 COMMAND 
“WAIT FOR SSR TO SET 
EXPECT 





; MORE THAN 25 ERRORS 
: TER WRITE DATA RETRY 
TRAP CSERHRD 
-WORD T2/WRF 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sBUMP RECORD SIZE COUNTER 
sAT 40 SIZE YET 
sBR, IF MORE RECORDS TO WRITE 


SRAAAEAAAEAAERERERAAEEEREREAEREEAEAEKEEERARAAAEEARRERERAERARAEREREEES 


* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
SREEREEREREEEAREREEREREEEEEAEAEEEEERAEKERERERERERERERAAAAEEEAARAREREE 





JSR pC REWIND 
BCS 236$ 
MOV TSSR(RS) RI 


:CALL TAPE REWIND COMMAND 
“BR, IF NO 
“GET TSSR CONTENTS 





CZTUYA 
TEST 3: WRITE 


9557 053472 
e228 228 Sesene 74 
200 





60 03 00 
053502 
053504 
053506 
9563 053510 
053510 


Seuenee 


$33 
Sons 
SSS 
x 


oO 
wi 
VIA 


33 
WIAA AAI 
EERE ER eyeNS 


WAG 


RAAAARAAAAAA 


Se 


3 
2 
$ 
S 


9598 033972 


04737 
Ios 36 
00051 

057045 
011700 
104406 


ns FRONT END PRT C 
DATA RETRY 


020100 


055536 
000002 


003072 


F 2 
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MOV 


JSR ATCH 
ERRHRD pc eral SO TRUN. PKTSSR 


230$: CKLOOP 


SEQ 224 


sGET PACKET ey 
FOR MORE THAN 25 ERRORS 


iI 

;REWIND NOT ACCEPTED 
TRAP GERHARD 
- WORD : 


- WORD 27RUWN 
-WORD PKTSSR 


TRAP CSCLP1 


sLOOP IF SELECTED 


§ RERAAEAAAEAARERE EAE AAAEAE EAE EAAAAAAAAAAAEAEEAEREAEAAEREAEAEEEEEERE 


?READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


’ 
SRRAAAEEAAEAERAEEREREEEEEEAAEEAAEAAARAAAAAAEEEEEEEAEAEREEEEEREREEDES 


MOV T27BER+6, R1 
MOV Re 
BIS Sait »R2 
CMP R1.R2- 
BEQ 46$ 
JSR PC FATCHK 
ERRHRD ERRNO, T27BOT,EXPREC 
240$: CKLOOP 
MOV #20.,R 
055642 MOV Fore NS7RB 


sPICK UP_XxsTO 


;TAPE NOT AT BOT AFTER REWIND 
TRAP SERHRD 
EXPREC 
sLOOP IF SELECTED 
CSCLP1 


WORD 

WORD T27B0T 
- WORD 

sSTARTING RECORD SIZE 

;STARTING READ BUFFER ADDRESS 


SRAAAAERAEAEAEAAAEAAA TELA RAE EAAEAERARAAREAERAAAAEREEEEEARAEAEEREREEES 


*READ DATA,ACK COMMAND 


¢ 
sRRAEAAAAAEAAESERAEEEEEAEAAAERAEEAAEAAEAREAAERARAARAEAAEEAAERAREREEREE 





055640 265$: MOV #10000) . 127Pk3 
MAV 
KV 45 rons e 
MOV Ra, 4, TSDB(RS) 
na R1 
ATCHK 
ERRNO RDERR,PKTSSR 
280$: CKLOOP 
MOV FREE .R2 
MOV 3,R4 





READ DATA.ACK COMMAND 
set UP R4 WITH PACKET ADDRESS 






“SET UP EXPECTED 

*SET BOT BIT IN EXPECTED 

“DOES EXP = REC'D 

“BR, IF EQUAL (OK) 

*INC AND CHECK FOR MORE THAN 25 ERRORS 


:SET UP RECORD SIZE IN PACKET 

“WAIT FOR SSR TO SET 

“GET TSSR CONTENTS 

“SET UP EXPECTE 

“ARE THEY E 

“BR, IF OK 

“INC AND CHECK FOR MORE THAN 25 ERRORS 

*TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 33 
“WORD RDERR 
“WORD PKTSSR 

sLOOP IF SELECTED 
TRAP  CSCLP1 


sGET BUFFER ADDRESS 
:GET RECORD SIZE 





mee ee ee ee ee —— 





G 2 





SEQ 22 
CZTUYAQ TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 104-4 5 
TEST 3: WRITE DATA RETRY 
5 162704 000024 #20. .R4 sPOINT BACK TO 1ST RECORD 
3809 5365 204 285$: Re. “POINT TO 1ST LOC IN BUFFER 
10 05 3 R SSWAP BYTES SWB<1 ETC. 
9611 05 403 (R4) ,R3 “DATA WRITTEN = READ 
361¢ 5 1410 <BR, IF DATA ) 
9613 05 011401 (R4) RI “PICK UP BAD DAT 
9614 05 010302 , ‘SET UP EXPECTED 
$615 05 37 020100 PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
9619 05 ERRNO, T27DTA, EXPREC “DATA IN BUFFER NOT CORRECT 
05 10445 TR RHRD 
053674 0005 ¥ 
05 T27DTA 
05 0 EXPREC 
05 290$: sLOOP IF SELECTED 
05 CSCLP1 
BUMP T 







: O NEXT ADDRESS 
sBACK TO RECORD SIZE 


| 
“PUT R3 BACK INTO SHAPE 
SAT END YET 
: CORD SIZE 
“DONE YET 
F NOT DONE YET (MORE READS) 





4 BR, I 
LOOP IF SELECTED 

RAP CSCLP1 
3>>>>>>>>>>>> END su TEST >>>>>>>>>>>> 








CSESUB 






104403 

023727 002170 000031 CMP FATFLG,#25. 
00240 BLT 999$ 

004737 020152 JSR PC ,CKDROP 


COUNT AT 25 
LESS THAN 
DROP THE UNIT 


IS ERROR 
BR, IF 
TRY TO 


eg 3 
wee «| GONSSStS & 
SSSSSSSSSSSSSSS. 
S ssssssess 2 
E SSgSsSear ae 
S Woxessss £3 
5 


RES 
$ 





H 2 


CZTUYAO TU8O FRONi END PRT C MACRO M1200 29-MAR-83 15:45 PAGE 105 
TEST 3: WRITE DATA RETRY 


3* 

;TEST 3, SUBTEST 5 

“VERIFIES THAT A WRITE DATA RETR 
“PERFORMING THE ‘ERASE’ PART OF 
; PERFORMING THE FOLLOWING SERIES 


1. THE TAPE IS oe: AND A 





























fF RREAAAAAAERERERAREEAEEEREEREREEAEAAREREAAERARAAREREREARERRAREREERERS 


“ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


: 
sRREREREREEERAAEAEREREEAEERELEAAEAAREAEERERAEAAARERAERAERERERAEAE ERE 


14 — Ber ay “DELAY ABOUT .25 SEC 
14 012727 000250 ; : MOV #250, (PC)+ 


9636 
a3 
9640 
9641 
964¢ 
964 
9644 
9645 ; WRITTEN WITH THE NORMAL 
9646 : SHOULD RESULT IN RECORDS 
9647 : STANDARD INTERRECORD GAP. 
3025 22. CALIBRATED BY REWINDING 
9650 : THE TAPE Ano THEN CONUTING THE NUMBER OF CYCLES 
51 : THROUGH A LOOP RE TO SPACE OVER 
5 : THE SERIES OF RECORDS WRITTE EVIOUS 
oge7 ; STEP 
9655 :3. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
9656 : RECORDS WRIT N AGAIN, THIS TIME USING THE WRITE 
9657 : DATA RETRY COMMAND. THIS SHOULD RESULT IN 
9638 3 RECORDS SEPARATED BY A LONG INTERRECORD GAP. 
9660 °4, THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
9661 : ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
9662 : COUNTED TO COMPLETE THE OPERATION. 
9664 :5. THE TWO LOOP COUNTS ARE COMPARED CHECKING TO SEE 
9665 ; THAT THEY DIFFER BY A SIGNIFICANT AMOUN 
3667 . 
eoge ; 
4 : 
9672 05 746 : BGNSUB 5>>>>>>>>>>>> BEG N, SUBTEST >>>>>>>>>>>> 
53746 10440 Sie C$BSUB 
9673 053750 00503 002172 CLR INTRECV : INDICATOR 
74 053754 005037 05 666 CLR Te7cn :T WRITE DATA SPACING 
75 053760 005037 055670 CLR :T WRITE DATA RETRY SPACING 
9676 053764 004737 060644 JSR re. 1g fais" :S PACKET 
9677 05 004737 060736 JSR ;SET UP OTHER COMMAND PACKET 
9678 053774 004737 061000 JSR Peet “SET UP OTHER COMMAND PACKET 
9679 054000 012737 176750 055672 MOV 5 rats *SET UP DELAY COUNTER 
oeat 
36a <1 
so8s 


54 737 016644 10$: JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 
of “BR IF INIT WAS OK 
0 


CZTUYAO TU8O FRONT END PRT C 


TEST 





3: WRITE DATA RETRY 


002116 
177772 
177756 
055672 
020100 


055510 





I 2 


MACRO M1200 29-MAR-83 13:45 PAGE 105-1 


20S: 


MOV 


T27DLY 
PC» FATCHK 
ERRNO, SF IERR, SF IMSG 


#T27PACKET ,R4 


-WORD 0O 

MOV SOLY, (PC)+ 
WORD 

DEC -6(PC) 

BNE 74 

DEC =2g sre) 

BNE -* 






R_NOT DONE 
FOR MORE THAN 25 ERRORS 
; CONTEN SSR REGISTER 
; FATAL SSR WAS NOT OK 
TRAP CSERDF 
- WORD 3 
«WORD SFIERR 
WORD SFIMSG 


SUBROUTINE NEEDS PACKET ADDRESS 


SEC 227 
' 


are sRERRRERRERREAEERAEREHEKEREAAEHERAAERAAEEAEEHEREREETAeKeheeAeeeeet 
3 ¢ SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
97 SRAARAAAEAAAEAAEAEEEEEAEEEEEEEREEEREAAAEEERAEEAAEAAEERERERAEEEEEEEEE 
















9 
2 54074 737 010332 JSR PC .WRTCHR s ISSUE WRITE CHARACTERISTICS 
103407 BCS ‘BR, IF COMMAND ISSUED CK 
9710 1 737 020100 JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
714 0541 10001 MOV RO,R “SAVE CONTENTS OF TSSR 
9715 05411 ERRHRD ERRNO,WRTMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 
34110 104456 TRAP CSERHRD 
5411 522 .WORD 
54114 754 “WORD WRTMSG 
54116 011666 WORD  SFIMSG 
9716 0541 23$:  CKLOOP sLOOP IF SELECTED 
ns 54120 104406 TRAP  CSCLP1 
14 Fs RAARAEREEAAEAEREEEERAEEAEEERAEEERAEREREAAAEAARERAAEAERAERERERERAEEEE 
971 : 
2 : * ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
9 § “ReeeReeeeeeeneeeeeeeeneeeeeeneneeakeeeeaeeeaeenegeeteeeneeeeneee 
4 54122 004737 010434 JSR PC REWIND :CALL TAPE REWIND COMMAND 
9 54126 103411 BCs “BR, IF NO PROBLEM 
97 6 341 016501 000000 MOV TSSR(RS) RI “GET TSSR CONTENTS 
9 134 01 MOV RS *GET PACKET ADDRESS 
9 136 004737 020100 JSR PC. FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
9 3414 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
142 1044 T CSERHRD 
541 52 WORD ; 
5414 5 “WORD T27RWN 
541 11700 “WORD PKTSSR 
9733 05415 30$:  CKLOOP sLOOP IF SELECTED 
054152 104406 TRAP  CSCLP1 


J 2 













SEQ 22 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 105-2 
| TEST 3: WRITE DATA RETRY 
97 5 £ RAERAAAAAAEAARERAAEEAEEREAEAEEAREEAAEREEAAAAAAEAAAEAAAAAEREAAAEREAAAAENE 
9 ; 
3 “READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
‘Reeeekeeekeeeekeeeeeeeeeedeeeeeeeeeeteeneeneaeteeenenneereeneees 
54154 013701 055536 MOV T27BFR+6,R1 :PICK UP KSTO_ 
541 1010 MOV R1,R SET bor‘art 
541 527 02 000002 BIS ait »R2 “SET BOT i He EXPECTED 
0541 10 CMP R2 “DOES EXP = REC'D 
1 1406 BEQ ad “BR 
172 020100 JSR C,FATCHK SINC FOR MORE THAN 25 ERRORS 
5417 ERRHRD ERRNO. T27BOT ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
176 104456 TRAP RHRD 
Bg 000524 . WORD 
54 056541 “WORD 127B0T 
54 016344 “WORD EXPREC 
54 40$:  CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
54210 012703 000144 MOV #100. RS sNUMBER OF RECORDS TO GE WRITTEN 
054214 013737 003072 055642 MOV FREE, 12 “STARTING WRITE BUFFER ADDRESS 


fRARAAAAAAAEEAAEREAEEEEAEESEEERERAAAEAERAEAAAAEAAEERAEEEEREREREEEED 


[WRITE DATA,ACK,CVC=1 COMMAND 


€ 
sRAAAEAAAAAAAAAAESAESEEEEREREEERERERAEREEAEAAEREEREREEEAEEEEREERERE 























012737 140005 055640 65$: MOV 4 -T27PK3 sWRITE DATA. ACK .CVC=1 COMMAND 
54 012704 055640 *SET UP R4 WITH PACKET ADDRESS 
012737 4 055646 MOV fer *SET UP RECORD MSIE IN PACKET 
54242 010465 1 MOV na. FSB * ISSUE 
46 737 (017120 JSR Pc UA “WAIT 
52 016501 MOV rsgnt RS) :GET 
54 56 012702 000200 MOV #SSR SET 
Bee Be it oe 
3755 $22566 ooar3e 020100 JSR PC, FATCHK INE N 
“WRIT 
9706 HERE. 
9 054272 ERRSOFT ERRNO,WRTERR,PKTSSR TSSR 
054 104457 
054274 000525 
054276 005011 
011700 
70$:  CKLOOP sLOOP IF SELECTED 
104406 
00530 DEC R3 :DEC RECORD COUNTER 
1345 BNE 65$ “BR, IF MORE RECORDS TO WRITE 


SRRAAEAEAERAAEEEAERATESEEEEEAEAERAAAAAAAARAAEAAAAARAERAAAAKARAAAERAAERE 


‘ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


+ 
SRRAAEAAERAEAEAEAEEEREAEEAEAAAEERARARAAAAARERARERAAAAAEREARAAAARARS 


CZTUYA 
TEST 


aes 
979 
2 054324 


ae 


$833 
3 


oOo 


rs 


saepeecreeess3 3 
PRORN 


SIISISISITIIITS 


R 


LS 


gegegeeegeass 
NOUlUnN-SCOvono wi 





T3411 


se 


104456 


oe 


+: 


oo 
<b ol 
MOP 


012737 
5 


TU8O FRONT END PRT C 
: WRITE DATA RETRY 


010434 
000000 


020100 





kK 2 
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055642 


055640 


PC REWIND 
TSSRCRS) RI 





J PC FATCHK 
ERRHRD ERRNO, T27RWN,PKTSSR 















130$:  CKLOOP sLOOP IF SELECTED 
CSCLP1 

SRAAAAAAAAAAAAERARETAEAEEEAAERERAAEAERAREAAEEEAEEAAEEREEAEEEREREREES 
ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
OTTTITTETTTTOTTCTTTITTTTTTTTITTTTTTTT TTT TELE ETE 

:PICK UP XSTO 

“SET UP EXPECTED 

; BIT IW, EXPECTED 

: = REC'D 

; THAN 25 ERRORS 





’ TO7BOT .EXPREC 
RHRD 


T27B0T 
EXPREC 





140$: CKLOOP sLOOP IF SELECTED 
CSCLP1 
MOV ot Fh sSET UP PACKET ADDRESS 
MOV [SET UP RECORDS TO SPACE OVER 


SRRAAEAEAARARARERASSE AEE LEAT AEAAAARERLAREAAAEEREEAAEERERAEEEAEREEE 


*ACK,CVC=1,SPACE FORWARD COMMAND 


6 
SRAAAEAARAAAEEREREERAEEAESEAEEERAERARAAAAAAREERAEERERERAREEEREREEERE 






MOV #140010 T27PK3 sACK,CVC=1,SPACE FORWARD COMMAND 
150$: MOV R4,TSDB(R5) S ISSUE COMMAND 
152$: INC T27CNT ;BUMP TIMER 





DELAY DELAY ABOUT 100US 
#1, (PC)+ 
LSOLY, (PC)+ 
-6(PC) 
74 
-22(PC) 
720 

MOV TSSReR5) RI 3G 

BIT T7,R1 C 

BEQ 2K 

MOV TSSR(RS) ,R1 3G 





L@ 
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TEST 35: WRITE DATA RETRY 


SEQ 25C 





























ee 000200 ‘ SR_R :SET UP EXPECTED 
a sWAS EVERY Hi 
BR IF ALL I 
seh 020100 NC AND CHEC 
PCat OScr, PKTSSR “SPACE FORWARD 
160$:  CKLOOP sLOOP IF SELECTED 
104406 
SRAAAERAAAAAEEAAEAEEAEEEEEEREREAEREAREERERERERAREEEEEEREEEEREEREEES 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
PPOTTTTTT TTT TTT TITTLE eee eine 
004737 010434 PC REWIND :CALL TAPE REWIND COMMAND 
004 7 017234 _ : SEE HOw T TSSR IS 
str i Bit te 
004737 020100 FATCH °TNC AND CHEGK FOR MORE THAN 25 ERRORS 
ERRNO. To ,PKTSSR *REWIND NOT ACCEPTED 
104456 RHRD 
531 WORD 
57045 “WORD 
11700 “WORD 
170$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP  CSCLP1 
fF RAAAAAAAAAAERAAAAEEEEEE SEE EAELERAERAERAEAAEREAEERERREREEEREREREEEEE 
“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PIttiiiiiiiiiiiiiiititi ti 
013701 055536 MOV T27BFR+6,R1 :PICK UP XSTO 
101 MOV R1,R ‘SET UP EXPECTED 
000002 BIS [T1,R2 *SET BOT BIT IN EXPECTED 
1 CMP R1,R2 “DOES EXP = REC'D 
14 BEQ 1 S$ “BR, IF EQUAL (OK) 
020100 JSR PC FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27B0T ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
4 $6 TRAP § CSERHRD 
5 WORD 
0 541 “WORD 127B0T 
16344 "WORD EXPREC 
175$:  CKLOOP sLOOP If SELECTED 
a1¢708 144 MOV #100 - STARTING RECORD SIZE — 
ig acti 055642 177$: MOV HO Se uB sSTARTING WRITE BUFFER ADDRESS 


SRREREEAAAEAEAAEEAEAEREEEEAEA ATER AE EAEEAARAEAAEREERERERERALAR EERE 


“WRITE DATA,CVC=1,ACK COMMAND 





CZTUY 
TEST 


2 2 


3 





ced seed aad and 
-2§ VOUS WA" 


883333323 


Ws Ul 


TUSO FRONT END PRT C 


: WRITE DATA RETRY 


a 2 
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sRAREAAAAAAAAAAAEAE EEE AA AEA EAAAEAAEAERERAREA ES AEAKERAEAAEAAEERAEREE 
























140005 055640 Hts ams ;WRITE E DATA cycet. ACK COMMAND 
5 a “SET PACKET ADDRESS 
4 055646 SZ SET ORD SIZE IN PACKET 
é 400; stats ) 71S 
017120 Re WAIIF : 
| TSERCR) mt ; 
Rl Saar ; 
020100 PC ,FATCHK : 
ERRSOFT ERRNO,WRTERR,PKTSSR : 
180$:  CKLOOP sLOOP IF SELECTED 
104406 CSCLP? 
00550 DEC RS sCOUNT NUMBER OF RECORDS 
1342 BNE 7$ *BR, IF MORE RECORDS TO WRITE 
fs ERAATAAAAEAERAAAEAAE SEES ERERERAEEEEREAERERERAAEEEREEREEEEEEREREEEREE 
* ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
TITiiiitiiiiiiiiiiti titi 
54710 737 010434 JSR EWIND ;1SSUE REWIND 
714 i 11 acs 1858, IF ALL IS WELL 
1 “GET PACKET ADDRESS 
16501 MOV T9Smcns) “GET TSSR CONTENTS 
4 7 020100 JSR ATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO TOPRUNPKTSSR “REWIND FAILED 
104456 TRAP § CSERHRD 
534 .WORD 348 
5 “WORD T27RWN 
11700 “WORD PKTSSR 
74 182$:  CKLOOP *SELECT LOOP MAYBE 
740 104406 TRAP  CSCLP1 
aaa ahh lla tial al sail a inl 
°ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
3BIT 15 SETS DIRECTION - O=FORWARD  1=REVERSE 
< ceeeeetenenenanneetetereeerereeeeeeneneeneeeeneeenenteeeneeetenens 
742 012 1 MOV a. R3 sSPACE 1 RECORD FORWARD 
s a hte sk PC; SPACE ISSUE SPACE COMMAND 


if 


MOV 
et me 
1 JSR PC, 





“BR OMMAND OK 
*GET PACKET ADDRESS 
“GET TSSR 
“INC AND CHECK FOR MORE THAN 25 ERRORS 






R4 
Bettas, R1 
FATCHK 








SEQ 231 








CZTUYAO TU8O FRONT END PRT C 
TEST 3: WRITE DATA RETRY 
1044 
7 
77 
9941 776 
se SS JOBE. oan 
3308 01575 903072 
9944 
9945 
3947 
es 
9950 
oes 5012 012737 101005 
12704 055640 
995 4 012737 $2 
9954 Ses 2 1 6 
4 004737 017120 
5 bigs0s 
9957 05 072702 000200 
9958 aa0e 20102 
9959 055 108 
9960 si 004737 020100 
104456 
Se iis 
sa Bits 
9965 38 z 
b226 1044 
Be 55074 013737 003072 
oy 
9971 
oa 
99 
9974 022106 012737 140005 
9975 055110 012704 055640 
a378 55114 012737 4 
9977 0551 10465 1 
9978 0551 017120 
9979 0551 1600) 
33) 1 105 200 
514 10 
55144 0014 
55146 737 020100 








N 2 
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ERRHRD ERRNO,T27SCF PKTSSR SPACE FORWARD COMMAND oo 















RHRD 
“WORD T27SCF 
WORD PKTSSR 
185$:  CKLOOP sLOOP IF SELECTED 
RAP _—C$CLP1 
MOV #100. .R3 sNUMBER OF RECORDS TO BE WRITTEN 
055642 MOV FREE, 127WB “STARTING WRITE BUFFER ADDRESS 
SRREREREREAEEEAAREEEEEEEEEEEAEEREREEEEREREREEEEREREEERERARRERREREEE 
[WRITE DATA RETRY,ACK COMMAND 
SReeeRReeRReeeeeAREEER eee AATAAAAAEKKEREEHEREAAAAAReee eee eee eeeee 
055640 190$: MOV #19100 -T27PK3 sWRITE DATA RETRY,ACK COMMAND 
MOV Te7Pk SET UP R4 WITH PACKET ADDRESS 
055646 MOV net 33 3SET UP RECORD SIZE IN PACKET 
MOV 7808 ) c 
JSR PC WA CWAIT FOR SSR TO SET 
MOV TSERCRS) RI “GET TSSR CONTENTS 
MOV #SSR,_R2 ‘SET UP EXPECTED 
CMP R1RO *ARE THEY EQUAL 
Q sBR, IF OK 
JSR PC FATCHK *INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27WDC,.PKTSSR *TSSR INCORRECT AFTER WRITE DATA 
RAP SERHRD 
.WORD 350 
“WORD T27w0C 
“WORD PKTSSR 
200$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
055642 MOV FREE ,T27WB sSTARTING WRITE BUFFER ADDRESS 
s SEEK AAEEAEAAAEKAAEEETAAEREREREREAAREREAEKEAEAKEAEAEAREKEEREERAKEEREEE 
“WRITE DATA,CVC=1,ACK COMMAND 
: RAEEAEEAAAAEARAKCEARAAARAEEEAAREEAEEREAAAEAEERAERARAEAEKERAAREKRAEREEREAEE 
055640 MOV #140005, 127PK3 sWRITE DATA,CVC=1.ACK COMMAND 
MOV HT27PKS.R *SET UP R4 WITH PACKET ADDRESS 
055646 MOV T27S 7 3SET UP RECORD SIZE IN PACKET 
MOV +g 0 fare ) -1SS 
JSR PC WAITF “WAIT FOR SSR TO SET 
MOV TSSRCRS) RI “GET TSSR CONTENTS 
MOV #SSR_R2 “SET UP EXPECTED 
CMP R1 RO “ARE T 
BEQ 216$ “BR 
JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
“SOFT ERROR GENERATED BECAUSE THE 
oW IS NOT BEING CHECKED 
“HERE. IT WAS CHECKED IN CZTUXA 
ERRSOFT ERRNO,WRTERR,PKTSSR *TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 





B 3 
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CZTUYAO TU8O FRONT END PRT C 
3: WRITE DATA RETRY 


: 


sSreeselHINE § 
eeree 


MVM 


edd ed ed aed od 


~ 

3 
a8 
Wh 


WONOULSWN— © 
MAA AMI 


seseeseee 


Nm 


POMONA 
= 


eee ed ed eh eee ceed ee eed eed eed eed eed eed eed 
oS 


SEAS 
NoaRE 


we 


AAARAAR ARRRAAADN 
ez 


WILLA LAUT A 


Sssseseseeee 
EGeURERaES & 


-WORD WRTERR 
«WORD PKTSSR 
210$: CKLOOP LOOP IF SELECTED 
TRAP CSCLP1 
DEC R3 sBUMP DOWN RECORD COUNTER 
BNE 190$ sBR, IF MORE RECORDS TO WRITE RETRY 


FS RARAAAEAEREEEAAAAEEEAAE TERE REEERAAEREAEEERERERAAERERAAEEEREREREREE 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
SRAAAAAEAAEARAAEEAAEEEEAAAAEEEEAAERAEAAEREAEEEEAERERAEEREREREREREEE 






JSR eC REWIND :CALL TAPE REWIND COMMAND 
BCS 230$ BR 
MOV TSSR(RS) RI “GET TSSR CONTENTS 
MOV ; “GET PACKET ADDRESS 
JSR PC FATCHK 7INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27RWN,PKTSSR “REWIND NOT ACCEPTED nme 
. WORD ee 
| “WORD T2 
“WORD PKTSSR 
230$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
FRSA AAAEAAAEEAAEAEAAESTEREEEAAEEAEREAEAERERAAAERERAEEEREREEEEREREREEEEE 
“READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITT TII TTT it itt i iititiititiiiiitiviiiiiiiiii iii itis 
MOV T27BFR+6,R1 :PICK UP XSTO 
MOV R1,R2 . ‘SET UP EXPECTED 
BIS #BiT1,R2 “SET BOT BIT IN EXPECTED 
CMP R1_R2 “DOES EXP = REC'D 
BEQ 246% “BR, IF EQUAL ( 
JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, 127BOT EXPREC *TAPE NCT AT BOT AFTER REWIND 
Moro Sas 
.WORD 35 
“WORD T27B0T 
“WORD EXPREC 
240$:  CKLOOP *LOOP IF SELECTED pg 
MOV aT 7PKS R4 :SET UP PACKET ADDRESS 
MOV #10, T27RB “SET UP RECCRDS TO SPACE OVER 
SRAAAAAEEREREREAAEEEEEERERESEEAERAERARAAAARERARAEAAAAAEAAARARARAEEERE 
*ACK,CVC=1,SPACE FORWARD COMMAND 
SeeeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeaeeeeeeereneeeereereeete 
MOV #140010, T27PK3 sACK,CVC=1,SPACE FORWARD COMMAND 
35 : MOV RG Mo tas S ISSUE COMMAND 
52$: INC T27CNU “BUMP TIMER 


cerca ce emma ia Ae 


: 


SSS38E858 
SSSSSSSSSSSSSS 


oa 


SSSssssses $=  Seesegccss & 


SS 


MMVII 
oe et 
er 


MMIVMIMMMAMMMMMMIMMMAAy) 


wed ant wn2h 


BEES SS Sree ta haa oa 
Staxeee 8 


Mo: 


PREEee 


¥ 


5 


PERSRRRERASSE 


a3 


ae 
RO 


Rae 


05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
G5 
05 
05 
05 
3 
05 
05 
05 
3 
0 
05 
05 
05 
o5 
: 
5 
05 
05 





CZTUYAO TU8O FRONT END PRT C 
3: WRITE DATA RETRY 


000001 
002116 
177772 
177756 


000000 
000200 
000000 
000200 


020100 


002170 
020152 


017554 
051076 


¢ @ 
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1 


T27CNT,R1 
TareMU:R2 


R1,R 

Ren ~R2 

R 

 Taehiaaes 

ERRNO, T27T1M, EXPREC 


FATFLG,#25. 
9995 
PC ,CKDROP 


PC, TSTLOOP 
T27L00P 
TST 





sDELAY ABOUT 100US 


MOV #1,(PC)+ 


- WORD 

MOV SDLY, (PC)+ 
- WORD 

DEC -6(PC) 

BNE 


DEC ~2g«PC) 
BNE .-20 





GET TSSR 
CHECK FOR TSSR°S SSR SET 
sKEEP COUNTING UNTIL SET 
sGET STATUS FROM TSSR 
: UP EXPEC 
; Y 
: THAN 25 ERRORS 
3 OUT 
SERHRD 
-WORD T27SCF 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 







sTIME FOR WRITE SPACING 
sTIME FOR WRITE RETRY SPACING 






ZERO 
IF GOOD CHECK 
CHECK FOR MORE THAN 25 ERRORS 
OR PRINTOUT 
TIME WAS NOT DIFFERENT ou 


CSERHRD 
355 
T27TIM 
EXPREC 





- WORD 
-WORD 
sLOOP IF SELECTED 
CSCLP1 
8 <KKKKK KKK END _—" >>>>>>>>>>>> 
1100753: 


SESUB 
:1S ERROR COUNT AT ¢5 
:BR. IF LESS THAN 2 
sTRY TO DROP THE UNIT 





:D0 WE NEED TO ITERATE TEST 
“BR, IF NO LOOP REQUIRED 
*EXECUTE AGAIN 


sALL DONE THIS TEST 


TRAP CSEXIT 
- WORD Those. 





— et et tet 
Noor 


rercrerer ccc 


ooeo oooo2o 
AAAARRARARAD 
MAA AMM AMAIA 
PUPA AAAI 


S 
Nm 


RARRARR ARRRAR 
ERERESE SERSS 


Coooeo 


sue 
EN2SS 


S35 


RAR 


SSSVRUFANASVSVAAROINLS Sa VaRnUsoSsvePveo 


ooom 


VIVA 
o 


ce ee ee ee we cree cereal cee eel ce cee cee ee ee cereal cere cee ee cre cere eee ee ceed cee ced ee ceed ce cee cee ee ee ceed eed re ce ce ceed ee ceed ee ceed eee eet ceed eed ee eed ceed ed eed eed eed eed 
—~ 


Seessessseseoessoseceasoeseeaasoesssoesss 


, att ee 


swt 


CZTUYAO TU8O FRONT END PRT C 
TEST 3: WRITE DATA RETRY 
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2¢ 
SLOCAL STORAGE FOR THIS TEST 
7 BLKB 10-<.-TUV2A&7> 


T27PACKET: 

WORD OOO OTA 
“WORD 0 

T27DATA — & 
"WORD T27BFR 
WORD 
“WORD 20. 

WORD 


T27BFR: .BLKW 25. 
“WRITE SUBSYSTEM MEMORY COMMAND PACKET 
: BLKB 10-<.-TUV2AG7> 


T27PK2: ; 
“WORD To7Bre 
-WORD 0 
eWORD 6 
-BLKB 10-<.-TUV2A87> 

T27PK3: 
-WORD 100005 

T27RB: 

T27WB: .WORD FREE 
eWORD 0 

T27SZ: .WORD O 
EVEN 

T278F 2: 

T278S0: .BYTE 1 

T27B8S1: .BYTE 

T27S2: .WORD 

T2785: .WORD 


-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


i eRe 
: 


CNU: .WORD p 





OMMAND, WITH , ACK 






Ss 

IZE 
; CHARACTERISTICS DATA BLOCK 
;ADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sMESSAGE BUFFER 


pond VALUE SF BLOC 


sWRITE SUB SYS MEM COMMAND, AND ACK 
SADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


REREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


sBSELO AREA 
sBSEL1 AREA 
SEL 2 AREA 
sDATA AREA 


sREREAD DATA (NEXT) 
; REREAD DATA RETRY 
sWRITE CONTINOUS 
SEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
;DELAY COUNTER 


SEQ 235 





TU8O F 
: WRITE 


nn 
~¢ 
< 
& 
© 


RRR eS 
Sse 


RRS 
—s 


RAAAAAAAADR 
eS 


A 4 Pr 
=MWMIN 
SN =WVIW fo" 


3 


060 
06044 


6 
St 


eed cod rad eed ed ed eed ced ced ceed eed cet od ee aed ced ond eed ced eed eed ccd ed ceed cet ce ceed ceed ceed ee ceed cet ced ed ed ed ceed aed od od 


ee ed ed eh ceed eed ch ed ee red ed eee eed eed eed eed ee eed ced ced ee eed eed eh eed cae ceed ceed eed oe eed eed eee eed oe eed eed ed eed ee we ee me we eed eed cod ceed eed eee ee ed ed ed ed ed ed 
weed med cma och omd cond cond awd ond cmd end cond aod 


SOOOSOOOOSOSOSOOSS SS SSSSS SOOO OSESESeoooeooooooooooooooeooccooeccoooo 


3 
46 
u? 
48 
49 
50 
23 
38 
54 
35 
56 
57 
38 
59 
60 
‘ 
65 
66 
67 
68 
69 
70 
fe 
74 
75 
76 
77 
78 
79 
80 
81 
83 
84 
85 
86 
87 
88 
89 
90 
4. 
98 
94 
95 
‘ 
1 
2 





RONT END PRT C 


FUN ENNE SM SNONEE 


pp barat oa pee ot ptt ee Nt 
ANAND ed aad Ua et et = RA = CAI SII 


SEE NINNNNNEWE SS 
De ed ee ed a ee cee ed cee ee ced ee cme co we en eed coed one cee cme eh me nt ae ed weed aed aed aed acd 


ek ek cae me cee cee me ceed ce cee ceed ad cee ae ee co ce me ce eed ced ce ed eed ed wed ceed ed ed ed nd ed 
a 4 a gh ge SANA tt at gg ENON ENA gt a Neary ee Nat gt 
ee me ee ce ee me ed cee ee ed en ee ce en ee ee en ce md ee ceed ad a8 eed ed aed ed 
APMIS LS SNNNVNNANG LSNONENOYVN ONS 
N= ANININI MIATA WII = VIII A Ea NI 


Wi 
ad 


ooo 
32 2O aa 


NANNY 


wend sont) ech weed ed end cond wood mead 


rod 


Wn 


oO 





g 3 
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3+ 
sLOCAL TEXT MESSAGES FOR TEST 


aOPaReSBRE: 





aa 


i 


Pee 


~ 
“ 
ra) 
“7 


: 


sa id ed ad meh ef ef ee ed ed md md a ad cl at eh tt tt 
~~ 
> 


- Ww 
per 
™N 
—~ 
tows 


> Se Ne Ee 
Rnnnnnnnnnnnnnnnnn 
POAIAAAAMAAAAAAAAMAAAAIAAAAAAAAAMY 


> >>> 
AMMMM 


AS 


tree Gees feo fran fred feat Bene Bond Bow Daweh Draah ben} front omg Seng Greed bewns fant ton: Peace tome foamed Oomd femg fay foeet Sneed bead bread bona Domne 
PEPER RRR PIRI RS RSENS 


"Tape Position Incorrect After REREAD Previous (OPP=1)° 
"TSSR Incorrect After READ DATA Command’ 
"REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
"POSITION (Space Command) Failed, TSSR Not Correct’ 
"RIB NOT SET AFTER READ REVERSE INTO BOT’ 
er Illegal Mode Bits Set’ 
Mode Bits, Failed To Set ILC Bit In xsT0° 
Not accepted 
*"TSSR Not Correct After WRITE DATA RETRY Command,At BOT’ 
WIND Command (B80 


a Not At er T Not Set In xSTO)° 

"WRITE DATA RETRY'’S Erase Tape Not Lona. , 

"REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

"TSSR Not Correct After REREAD COMMAND Reject’ 

"Rewind (POSITION) Command Not Accepted 

"RAM Error, Correct Data Pattern Not In Ram‘ 

"TSSR Init. Failed After RERE MAND © 

‘Drive 7 Select Failed To Set “OFL’’ In TSSR’ 

*TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
ATA Command . 






















e Record Read‘ 
"Read Record Failed To Give T Status Aiert’ 
"WRITE TRY, At First Record, Failed To Set RIB Bit XST3° 
*TSSR Not Correct After ' 
"Data 
eASCIZ 


sROUTINE TO RESTORE Sage Ble Sl TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 


T27REST: 


sSAVE THE REGISTERS 






#T27PACKET,R1 “START OF THE PACKET 
#1 (R1)+ “WRITE SUBSYSTEM MEM. WITH ACK, 
#T27DATA, (R1)+ “ADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ *EXTENDED ADDRE 
#19 (R1)+ “SIZE OF DATA BLOCK IN BYTES 
aTe7BFR, (RI) ‘ADDRESS OF MESSAGE BUFFER 
#20. .(R1)¢ sLENGTH OF MESSAGE BUFFER 

+ 





| 3s 
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TEST 3: WRITE DATA RETRY 











10 03 i 1271) 200839 #0, (R1) : 

a 15 06071 i 1 055530 64$: Hr, T27BFR(R2) : 

206 ° 

102¢ 000000 *0 wt ; 
1¢ 508 ae 64$ 5 
1020S 07 PC s 
10210 
10211 
1 1g 736 T27RT2: 
1021 ; THE REGISTERS 
10214 060742 012701 055620 #T27PK2,R1 sST OF THE PACKET 
10215 0607 12721 1 #1 *(R1)+¢ “WR SUBSYSTER MEM. WITH ACK, 
1 16 80752 012721 0556 #127BF 2, (R1)+ ANDRESS OF DATA BLOCK 
1021 7 1 (R1)+ sEXTENDED ADDRESS 
1 18 50760 012721 000006 #6.,(R1)¢ ‘SIZE OF DATA BLOCK IN BYTES 
10219 0607 00 1 (Ris+ 
10220 06C7 12701 055650 #T27BF2,R1 sPOINT TO DATA SEL AREA 
10221 06 005021 (R1)¢ 
ic 3 a6 Soe0y i sRETURN 
10224 061000 T27RT3: 
10225 061000 i SAVE REGISTERS 
10226 061004 12701 055640 #T27K3 R1 ‘SET UP POINTER ADDRESS 
10 101 1 y+ “COMMAND SPAC 
10228 06101 (R1)+ ADDRESS OF DATA BLOCK 
10 ; 101 098 03 (R1)+ SEXTENDED ADDRESS 
1023 1 5011 (R1) “SIZE OF DATA TRANSFER BLOCK 
10231 061020 000207 PC “RETURN 
10 10 : 

510 L10066: 
061022 104401 TRAP  CSETST 


LL LLL LL 
ES EN we 


“Cc 


So 


oo 


-—o wi 


SSUFUN WSSesannec ns 


ERRERR RR ROS 


YAO T 
4: 





USO FRONT END PRT C 
WRITE/READ TAPE MARK 


1084 

1024 005037 002170 
1050 005037 0031 
1034 012737 003788 
1042 007037 3102 
1088 912700 6547 
1036 06737 017406 
’ 012737 000001 


6 3 
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-SBTTL TEST 4: WRITE/READ TAPE MARK 


THIS TEST vente ies TH 
LY. IT IS VERIF 

BY CHECKING THAT THE 
; TAPE - IN ADDITI 
; SUBCOMMAND UNDER THE 
THAT THE CLEAR ae 
ORMAT COMMANDS WITH 












'- wi TAPE MARK C OPERATES 
T THE TAPE MARK IS WRITTEN ONTO TAPE 


OMMAND 
CVC) BIT OPERATE 
AL MODE CODES ARE REJECTED. 





E TAPE MARK 
BEING ieere 


‘THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 







BGNTST 
CLR FATFLG 
CLR KTFLG 
002146 mov mEPRTZ EPRTSU 
JSR 
mov Ae 
002164 MUV #1 LOUPE ETUP 
T28LOOP: 


rr we ie em ee ee 








D fi; 18 VERIFIED 
S PROPERL 


T4:: 
CLEAR FATAL ERROR FLAG 





sHOLD OFF KT11 


: SECONDARY — MESSAGE 






sTURN KT11 
:TURN KT11 BACK OFF IF THERE 
SSAGE 


TO IDENTIFY TEST 
SETUP 





















s ¢ eg 33 EE of zy 
Som © S uw Set Pend Su a & « 
> < - aa Ww or Wie _t 
—e — Yu w Sx = =u 
ww 6! wo “ee ~~ — a dre Gan Jo 
— = e a fom -—< eee 
wes SSE OS prs Dm 25 3- 
s2ee:> $2 2c ef Se = 30 
eS “5 r- #3 39. uS aes > 
aec25 e° Su fe <33 “2 Lime Paste Secs 
wie a 2 “= = Fa Se = w2tow 
oe Zu Lm be be =< 
o x KS gg- & <-5 = “e<<o ees 4. =— 
== = Zu S=u “ee shoe uv wan=—Sungy Sewn 
7 SE w<> Ez vz eww 
ol <5 au oa o us 3 
. zE9 "5 236 28" _s2- E> 
om a 2. ase we a S - 
— _ = ar) uw WO = wx 
” w wo> ug we wea o fem 
La) w tr Uo ce og 4 S ” 
ao Mee a) rey 3 Quin <<. ~ » “ws Ge 
- 8 wt Sou BSE SSechy yt wees 
; : x= <ZS <aov <a2>Oom@ == Pane 
~w 
- 
” 
= ef - Mm ~~ wn o nw a. s 
= *ee*e¢ %6¢ See £6 26 Se FS FS Fe FG FS FR FR FE PS FR FE FQ QE 2S 8S FE FG FH FS 8B OR %Q 8S] FR 2Q 26 4S SQ FQ 2Q FH FQ FH %R FQ FQ R48 4S 78 58 8 %8 
= 
2 
4 
w 
= 


WRITE/READ TAPE MARK 


4; 





CP FE EF CF Ge EF FF CE FF FE FF © CF CO FF FF EE FE FF FF FF GO GF FE F GO FF FE 


CZTUYAO TUSO FRONT END PRT C 


TEST 





SEQ 240 




















- 
& oN 
s 2 
A 
a a “- S ” a) g 2 ~ wr 
a 8 sz eke § pe efes § =. 
A$ LS _ & Sens £ 
> Ww wv nw 
: © s. < 
A 
a be w 
2h S oz.ue8ee £2 3 38883 ©: 38 
SF oo 2 = —s 
: : avy Broke: : 
= z rw) - <-5 on o Aw 
a eet} ¥,. Olona =< wee 
Om Ss <6 ” a en r—\ ou a. 
Z my 3 uw & S te. = as < at 
m4 A “Ss o a re wi we 
<a A = wWeYs =< we 
as A z= = wy Os Ss =~ 
% a a a 5 i. a SQ 
A uo iG una Ze 
@ A Bowe- 8 § 2oSe3 
tas *e ®e ®e@ @@ ee &e &e@ ®@ ©@ 6@ 2e@ %@ #@ 06 ©— ©— 46 66 ee ®e0e64%6¢4%6 *@ *6 
= 
o° 
Oo te. ] ae 
tite 2 2 PA 
2s > : = 
a = >= Ww Fe] a. 
x 
= a wc = o ‘7 
one Mus s x » 7” 
2 ngs ws te ye & e =» 
Pod 
- Ses. s% 55 soo 
“5 S a aes ae < w vw 
axe bee few tee 3 ts GF ite cx aru 
ee Re Me ty ie Z Rowe 
wit aaa Saf ag tre wane wa GM ae w 
= 2 = ‘ : 
Ze S S8eaee we485 33 5 Seees5 
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SESSESESSESESESESESSESESESSSESESSESSESESSSESSESS 


4: 


a a 
a vere, | = S 4 
w 
my 
my 
bs 
ox SONGS a 22 2 iS S sn Ss 4 S 
— ens SEEEGS NS 5 $85 
a SSSS5 ee 7 S $s Ss a 3 
3 WRARARDO RK Yooh 
= gerenny RBS Bes Saa8 &e SAee 3 Se58er 33 
: iss Meaceees 2535 322 
= -Ooo = or 
Se ~ - © 
~ 
= LRLLLSSz Bsc oad ~ = _ 
2 be eater onceetsrererecdeaharengedhaeeaterenare 
= ee ee ee gee gee ee TEE ee gate ee eg ee TP ee ee ee 
— 
LL 
> S0000009000 co00000 OSCoo COOSCCSO So SCoC0C0CoO 
- ee ee ea a oe a. 
= 


TEST 








CZTUYAO TU8O FRONT END PRT C 
TEST 4: WRITE/READ TAPE MARK 


~ 


10 
1 
1 
2 
10 





cmon oval) and aed madd couth son med ved wend 
Coooooceocoo 
Lan 





S23 3 
SSE ESE 


od 


a 


3 


SESE 


and 
& a 
ae 
=NW 


3 
rs 


si 
= 
S 


063226 
000002 


020100 


10882 


020100 


140011 


017120 


020100 


063226 
000020 


020100 


J 3 
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063330 


30$: 





MOV T2BBER+6 RI 
MO 


V RI AR 
ms glia 
40$ 


BEQ 
JSR PC FATCHK 

ERRHRD ERRNO, T28BOT,EXPREC 
CKLOOP 


MOV #T2BPACKET ,R4 
PC ,WRTICHR 







PC FATCHK 
R 
ERRNO, WRTMSG, SF IMSG 











sen ere 
ese 
TSERCRS) 1 
mi ne 
ERRNO 





TCHK 
o T2BWDC ,PKTSSR 


T2BBER+6.R1 
R Re 
waits .R2 
80$ 


PC FATCHK 
ERRNO, T28VCK .EXPREC 





CKLOOP 


WORD T2BRWN 
PKTSSR 


TRAP CSCLP1 





OK) 
CHECK FOR MORE THAN 25 ERRORS 
T AT BOT AFTER REWIND 
TRAP RHRD 











T T 
EXPREC 
CSCLP1 


sLOOP IF SELECTED 


SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 

INC AND CHECK FOR ORE THAN 25 ERRORS 


ONTENTS OF 
WRITE CHARACTERISTISC FAILED 
TRAP oo 
WRTASG 


SF IASG 
sLOOP IF SELECTED 
LPI 


csc 
WRITE TAPE MARK,ACK,CVC=1 COMMAND 
Ser UP R4 WITH PACKET ADDRESS 








@e Qe Q@e Ge Se @ 















COMMAND 
T_FOR SSR_TO SET 
SSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 
AND CHECK FOR MORE THAN 25 
SR INCORRECT AFTER WRITE TAPE 






Beane 
4 ont 
=f 


NC 





i 
TS 





sLOOP IF SELECTED 


sPICK UP _XSTO (VCK CHECK) 
UP EXPECTED 


sLOOP IF SELECTED 


SEQ 241 





kK 3 


SEQ 24 
~ ; PAGE 109-3 
TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 
sz TUvAD WRITE/READ TAPE MARK 


—— = — 
—— 
—— - <2 oe ee 






























TRAP —-CSCLPT 
;PICK UP_XSTO (CHECK TMK 
R+6,R1 ° XPECTED 
1280 013701 063226 MOY ORI CRG ‘Tk SHOULD BE SET 
10415 061 4 BIS #BIT15,R2 SWAS TMK SET 
10616 . L 2 100000 CMP R1 ,R2 BR. he 
19418 1672 0201 OER «PC SFATCHK EXPREC «TAK WAS NOT SET A 
19420 127 004 020100 ERRHRD ERRNO, T2STMK, 
10034 is 1046 
1806 06 ;LOOP IF SELECTED 
—o 908: CKLOOP aL. TAPE REVO ¢ 
WIND é NO 
se HE D473? 010634 aes 1308° SAVE. PACKET ADDRESS 
1 151 RO,R4 3GET TSSR STAT THAN 25 ERRORS 
19487 061520 103411 TSSR(RS) RI ZINC AND CHECK FOR MORE 
10439 061394 916501 000000 NOLTOBRUN,PKTSSR REWIND NOT ACCEPTED aie 
ber3e5 1 ;LOOP IF SELECTED TRAP 
061542 011700 1308: :PICK UP_XSTO 
10435 ber sea 106406, 1 BIT IN EXPECTED 
1 ° xP = 
ene y= eee 
10439 061560 0 4H STAPE NOT AT GOT AFTER REWIND 
10401 O61 004737 020100 y 
0613¢2 Seat ;LOOP IF SELECTED ‘a 
016344 408:  CKLOOP S TO WRITE TM 
10446 96160 : #10. 8 SURITE TAPE MARK ACK CVC=1 COMMAND 
1602 Ot Ae 1908: Ov ai20611 .128Px3 SSET UP_R4 WITH PACKET ADDRE 
10447 061 F37 120011 063330 MOV «AT 2BPK3_R SISSUE_C 
1 1606 01 R4, TSDBCRS) SWAIT FOR SSR TO SET 
10649 061614 012706 065330 a ae :PICK UP_TSSR ) 
10450 061620 Of +9496 ’ TSERCRS) RI :SET UP EXPECTED (SSR ONL 
10451 061 Soy MOV SSR,R WAS STATUS GOOD iii 
19438 Seigse 91570 ae (2A eo 
19436 O61 18 OeR PC FATCHK TEAS, CORRECT AFTER WRT TAPE Me 
b435 061 14 rh ANO,T28W0C ,PKTSSR TRAP 
Hof 5 +2 020100 ERRNO, T WORD S11 
10466 1650 1 “WORD PRTSSR 
165 sre ;LOOP IF SELECTED TRAP CSCLP1 
1686 011700 165$:  CKLOOP gare wo ane 
10461 : 1 MoV T28BFR+6,R1 ° 
10462 061662 013701 063226 


CZTUYAO TUS8O FRONT END PRT C 
TEST 4: WRITE/READ TAPE MARK 


PRREPRE F 
OB IIVION F 


ed wench omes cel coed) wea eve ened amt ened cod) md aod cd eed ond 


Shee 


~ 


= 


3 
Je 
‘’. 
’. 
i’. 
€ 
+ 


sei 
2 


14 
7 


B85 coo 
7 1 


020100 





i 3 
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063330 


063336 


180$: 


210$: 





com on 
EEE EE Pa | 


3 
< 






see 





me. 
= 


BSPss 8 
ee 


JSR 
ERRHRD 


CKLOOP 


CMP 
BEQ 
JSR 









TMK ,EXPREC 


R4, TSDB( 

PC WAITF 
TSSRCRS) RI 
#SSR'SC'BIT2,R2 
R1_R2 


PC FATCH 
ERRNO TOBROF .PKTSSR 


T2BBER+6 Rt 
R1_R2 
#oiT15.R2 
R1,R2 

21 


PC, FATCHK 
ERRNO, TZ8RRM, EXPREC 


HVT Re 
R1 Re 


PC, FATCHK 
ERRNO, T28DTR,EXPREC 


I CHECK FOR MORE THAN 25 ERRORS 

;TMK NOT SET AFTER WRT TAPE MARK 
CSERHRD 
41 
T28TMK 


T 
EXPREC 





sLOOP IF SELECTED 
















TRAP CSCLP1 
:BUMP COUNTER DOWN 

“BR, IF LESS THAN 10 TAPE MARKS 

“VALUE TO WRITTEN TO MEMORY 

FILL ALL 

‘STARTING READ BUFFER ADDRESS 

“READ REVERSE,ACK, C 

“SET UP R4 WITH PACKET ADDRESS 

[SET UP RECORD SIZE IN PACKET 

* ISSUE 

3 WAI 

“GET 

“SET 

ARE 

*BR 

i ING MORE THAN 25 ERRORS 


TER WRITE DATA 
TRAP CSE 
° 413 
-WORD T28RDF 
-WORD PKTSSR 
TRAP CSCLP1 





sLOOP IF SELECTED 


sPICK UP XxSTO 
;SET UP EXPECTED 
TMK SHOULD BE 
IS TAK SET 

F WAS SET (GOOD) 


K FOR MORE THAN 25 ERRORS 
AFTER READ REV 
T CSERHRD 


RAP 
-WORD 414 







T28RRM 
EXPREC 
CSCLP1 


sLOOP IF SELECTED om 

sFIRST LOC IN READ BUFFER 

: RANS. 
IF NO DATA TRANS (GOOD) 


*INC AND CHECK FOR MORE THAN 25 ERRORS 
“DATA TRANSFERRED ON READ TAPE 
CSERHRD 


T28DTR 
-WORD EXPREC 





SEQ 24% 
| 





10560 


TU8O FRONT END PRT C 
: WRITE/READ TAPE MARK 
621 

i> 108 1 

Ba110 Gta7ee 100410 
1621 ° 12704 06 
1621 1 3 1 & 
621 017120 
621 16501 

vests 14 

062154 004737 020100 
0621 104456 

iv 15 

621 011700 

621 044 

06¢ 8 013701 063226 
062176 910102 

162200 052702 100000 
162206 1406 

66 10 004737 020100 
Vey 

Sele seit 

03982 ONesae 

1622246 

22S soa, 

5996 

e558 094797 010434 
veya? 01 

162236 16 301 

6¢ 7 020100 
162246 

3230 ete 

vey 

€ 1 

3384 11700 

162256 104406 

162260 013701 063226 
et 19765 00002 
06227. 102 

14227 1506 

06¢ 7 020100 
162302 044 

NA 7 7 

06. if 6344 

062312 104406 


m 3 
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220$: 


222: 


226$: 


230$: 


240$: 








CKLOOP 








JSR 
ERRHRD 


CKLOOP 


#100410, T28PK3 
#1, T28RB 


#TEBPKS, RG 
DB(RS) 


TSSR(RS) RI 
#SSR'SC!BIT2,R2 
R1_R2 


PC FATCHK 
ERRNO, T28RDG, PKTSSR 


T28BFR+6,R1 


RI Re 
#BiT15.R2 
1,R2 
é$ 


PC, FATCHK 
ERRNO, T28RRN, EXPREC 


PC REWIND 
2 


R4 
TSSRCRS) RI 
PC .FATCHK 
ERRNO, T2BRWN,PKTSSR 


T28BFR+6,R1 

R1TLR 

#pitt.R2 

46$ 

PC .FATCHK 

ERRNO, T28BOT ,EXPREC 


sLOOP IF SELECTED 


TRAP 
sSPACE REVERSE.ACK, COMMAND 
“NUMBER OF RECORDS TO SPACE BACK 
*SET UP R4 WITH PACKET ADDRESS 
i 1SSue c 
sWAI Aes 


CSCLP1 








FOR MORE THAN 25 ERRORS 
T AFTER SPACE CMD. 
TRAP $E 





-WORD 41 
«WORD 12 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP _XsTO 
sSET UP EXPECTED 
; BE SET 
WAS SET (GOOD) 


CK FOR MORE THAN 25 ERRORS 
T AFTER SPACE REV 

TRAP 
- WORD 
- WORD 





;LOOP IF SELECTED 

:CALL TAPE REWIND COMMAND 

: SAVE PACKET ADDRESS 
CHECK FOR MORE THAN 25 ERRORS 


sREWIND NOT ACCEPTED 


CSERHRD 
-WORD 418 
-WORD T28RWN 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sPICK UP xSTO 

:SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
: XP = REC'D 


“DOES E 
“BR. IF EQUAL (OK) 
“INC AND CHECK FOR MORE THAN 25 ERRORS 


sTAPE NOT AT BOT AFTER win 


RAP CSERHRD 

- WORD 19 

WORD T28B0T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


er eee Se 





Se eee _—— --+ ——- 
















n 3 | 
SEQ 245 
TUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 109-6 
ST 4: WRITE/READ TAPE MARK 
10561 14 12700 177777 MOV #177777,R0 : VALUE TEN TO MEMORY 
10 ? 020572 PC FILLER “FILL ALL ONES 
10 4 013737 72 063332 FREE.T BRB “STAR {BUFFER ADDRESS 
1 012737 100001 063330 #100001, T28PK3 “READ COMMAND 
10565 Ot 7 MO #T2BPK3.R “SET UP R4 W Orn’ PAC KET ADDRESS 
10 13737 4 063336 0.,12852 3SET UP RECORD size IN PACKET 
1 52 010465 R4, TSDB(RS) “ISSUE C 
10 017120 PC WAITE ‘WAIT FOR SSR TO SET 
1 16501 TSSR(RS) RI “GET TSSR CONTENTS 
10570 12792 100204 #SSR'SC!BIT2,R2 [SET UP EXPECTED 
10571 10 R1,R2 *ARE T 
10306 0¢ 1206 24 . : IF OK 
10573 06237 737 020100 PC,FATCH 7 INC AND CHECK FOR MORE THAN 25 ERRORS 
10577 0624 ERRNO, TDBWE, PKTSSR *TSSR INCORRECT AFTER WRITE DATA 
162402 104456 TRAP CSERHRD 
162404 000644 WORD 420 
162406 064106 . 
162410 011700 -WORD PKTSSR 
10578 D626 16 245$: CKLOOP sLOOP IF SELECTED 
062412 104406 TRAP = CSCLP1 
10579 062414 013701 063226 MOV T28BFR+6,R1 ;PICK UP _XSTO 
10 962420 010102 MOV R1,R2 3SET uP EXPECTED 
10581 062422 052702 100000 BIS #BIT15,R2 7 TMK SHOULD BE SET 
10 0624 02 10 CMP R1,R2 *1S TMK SET 
10583 0624 1406 BEQ IF TMK WAS SET (GOOD) 
10584 062432 004737 020100 JSR PC ,FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
105 2624 | ERRHRD ERANOLTCORRP,EXPREC © :TMK NOT SET AFTER READ REV 
62 104456 TRAP CSERHRD 
16244 4 TEORD 421 
16244 “WORD T28RRP 
16.24 16344 -WORD EXPREC 
10589 062446 247$: — CKLOOP sLOOP IF SELECTED 
062446 104406 TRAP _CSCLP1 
10590 062450 017701 120416 MOV rye IRST LOC_IN READ BUFFER 
10591 0624 12702 177777 Moy #77 77 ,R2 sEXPECTED IF NO-DATA TRANS. 
10592 06¢ 10 CMP ;DID ANY DATA GET TRANSFERRED 
10593 06< 14 BEQ 208 *BR, IF NO DATA TRANS (GOOD) 
10594 0624 737 020100 JSR PC, FA ;INC AND CHECK FOR MORE THAN 25 ERRORS 
10598 0624 ERRHRD ERRNO, reo pTR. EXPREC “DATA TRANSFERRED ON READ TAPE 
06247 104456 TRAP CSERHRD 
062474 065 -WORD T28DTR 
162476 016344 .WORD EXPREC 
1625 250$:  CKLOOP sLOOP IF SELECTED 
0625 104406 TRAP CSCLP1 
6c 12737 100410 063330 MOV #100410, T28PK3 sSPACE REVERSE.ACK, C 
062510 012737 5 063332 MOV #5, T28RB NUMBER OF RECORDS TO SPACE BACK 
262516 012704 063350 MOV = ss #T2BPK3,,R4 3SET UP RG WITH PACKET ADDRESS 
6¢ 10465 177776 MOV RAGTSDB ERS) 
0625 737 4017120 JSR PC WAITF SWAIT FOR SSR TO SET 
962532 016501 000000 MOV  ——s TSSR(R5) 3GET TSSR CONTENTS 
5 06¢ 1702 100204 MOV wSSRESC LBIT2,R2 T UP EXPECTED 
26¢ 019 cm RY a SARE THEY EQUAL 
509 062546 737 020100 JSR PC FA SINC AND CHECK FOR MORE THAN 25 ERRORS 
513 06¢ ERRHRD ERRNO, reo SRDS. PKTSSR *TSSR INCORRECT AFTER SPACE prev CMD. 





062552 104456 TRAP CSERHRD 








CZTUYAO TU8O FRONT END PRT C 
TEST 4: WRITE/READ TAPE MARK 
554 7 
5 15 
011700 
10614 
104406 
10615 013701 063226 
1 16 3 Ot 10 
1061 52702 100000 
19e19 065800 00140 
10620 Ooarse 020100 
10624 
104456 
50 
725 
016344 
10625 
104406 
1 6 013701 063224 
1 012702 000004 
10628 020102 
1 001406 
106 004737 020100 
104456 
are 
10635 oré3%s 
104406 
19686 Seseen Sista, S00 
1 ot 704 30 
106 10465 177776 
10640 ¢ 004737 017120 
10641 016501 
1064¢ 6z 06 012702 100204 
1oede OeorI 001406 
10645 06 ies 020100 
10649 0627 
1627 104456 
162724 00065 
162726 063615 
10650 0¢ 
62 104406 
10651 062734 013701 063234 
10652 0627 010102 
10653 062742 052702 000001 
10654 0627. 102 
1oee4 6673 i? 020100 
19686 1627 
1’. £38 
1627) 
162762 


aS 


MACRO M1200 


RO 


wo 


260$: 


270$: 


290S: 





CKLOOP 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
SR 


rm. 
r° 





B 4 
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T28BFR+6,R1 
R1_R 
#BiT15.R2 


PC ,FATCHK 
ERRNO, T25RRN, EXPREC 


T28BFR+4 ,R1 

RI Re 

= 

ERRNO, T28PBP ,EXPREC 


#100410, T28PK5 
1,72 


#11 
#T2BPK3, RG 
R4, TSDBCRS) 


PC WAITF 
TSSR(RS) RI 

#SSR}SC!BITZ.R2 
i cn 
ERRNO, T28RDG,PKTSSR 


T28BFR+14,R1 
iT0,R2 
R2 


PC FATCHK 
ERRNO, T28RIB,EXPREC 


« WORD $33 

-WORD T28RDG 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP _XxSTO 
sSET UP EXPECTED 






‘TMK SHOULD BE SET 
*1S TMK SET 
“BR, IF TMK WAS SET (GOOD) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
“TMK NOT SET AFTER READ REV 
TRAP § CSERHRD 
.WORD 424 
“WORD TOSRRN 
“WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
IDUAL BYTE COUNTER 


PICK UP RES 
; D BE THE DIFFERENCE 
ORRECT 









cT 
FOR MORE THAN 25 ERRORS 
NOT CORRECT 
TRAP 


T 


IF C 
“INC AND CHECK 
“RESIDUAL BYTE COUNTER 








- WORD 
- WORD 
sLOOP IF SELECTED 

TRAP 
:SPACE REVERSE ..ACK, COMMAND 


: CORDS TO SPACE BACK 
5 eA WITH PACKET ADDRESS 


2IS 
sWAIT FOR SSR_TO SET 
;GET ree ceciee 


EXPREC 
CSCLP1 












*SET UP EXPECTED 
*ARE THEY EQUAL 
sBR, IF OK 
‘INC AND CHECK FOR MORE THAN 25 EPRORS 
*TSSR INCORRECT AFTER SPACE CHD. 
TRAP CC 
WORD 
WORD 
-WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XST3 
‘SET UP EXPECTED 
“RIB SHOULD BE SET 
*1S RIB SET 
“BR, IF RIB WAS SET (GOOD) 
“INC AND CHECK FOR MORE THAN 25 ERRORS 
“RIB NOT SET AFTER READ REV 
TRAP  CSERHRD 
“WORD T28RIB 





SEQ 24 





TE 
— 


Cc 4 

























SEQ 247 
C2TUYAQ TUBO FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 109-8 , 
TEST 4: WRITE/READ TAPE MARK : 
016344 .WORD EXPREC | 
| 10661 300$:  CkKOOP ;LOOP IF SELECTED | 
1044 TRAP C$CLP1 | 
1062 012737 100010 063330 MOV #100010 T28PK3 s SPACE FORWARD ACK, COMMAND 
1066 012737 5 063332 MOV #5, T28RB :NUMBER 0 ECORDS. TO SPACE FORW. 
1 12704 06 0 MOV #TOBPKS,R4 :§ UP a with PACKET ADDRESS 
10665 1 63 177776 R4, TSDB(RS) sISSUE C 
1 737 017120 JSR PC WAITF : 
1066 016501 000000 TSSR(RS) RI : 
10668 012702 100204 MOV #SSR'SC'B1T2,R2 ; PE 
10669 02010 c R1,R2 “ARE THEY E 
10670 0014 BEQ 310$ “BR, IF OK 
10671 004737 020100 JSR PC ,FATCHK ;INC_AND CHECK FOR MORE THAN 25 ERRORS 
10675 ERRHRD ERRNO, TZ8RDF ,EXPREC *TSSR INCORRECT AFTER SPACE CMD. 
104456 TRAP CC 
000654 . WORD 
063534 “WORD T28RDF 
063046 016344 “WORD EXPREC 
10676 063050 310S: sLOOP IF SELECTED 
50 104406 TRAP CSCLP1 
10677 063052 013701 063226 T28BFR+6,R1 :PICK UP XxSTO 
063056 010102 MOV : 
10679 06 052702 100000 weit 5R2 ; 
10680 06 020102 MP R2 : 
10681 06 001406 : (GOOD) 
10682 063070 004737 020100 CHK : OR MORE THAN 25 ERRORS 
10686 74 ERRNO TEORRP,EXPREC : ER READ REV 
74 104456 
063076 55 ; 
063100 065 “WORD 
063102 016344 ; 
10687 063104 320$: sLOOP IF SELECTED 
063104 104406 RAP 
10688 3106 013701 063224 > ae :PICK UP RESIDUAL BYTE COUNTER 
10689 063112 012702 000004 ‘SHOULD BE THE DIFFERENCE 
10690 063116 020102 Thee 21S COUNTER CORRECT 
10691 063120 001406 ity “BR, IF COUNTER CORRECT 
10692 0631 2 004737 020100 PC FATCH SINC AND FOR MORE THAN 25 ERRORS 
10696 063126 ERRNO, TOSPBP, EXPREC < RESIDUAL OTE COUNTER NOT CORRECT 
063126 104456 TRAP CSE 
063130 000656 430 
063132 063451 -WORD T28PBP 
063134 016344 -WORD EXPREC 
10697 0631 330$:  CKLOOP sLOOP IF SELECTED 
063136 104406 RAP  CSCLP1 
10698 ge 0 ENDSUB bn 44444444444 END , SUBTEST >>>>>>>>>>> 
063140 104403 TRAP CSESUB 
10699 06 16¢ 023727 002170 000031 CMP FATFLG,#25. :1S ERROR COUNT A AT 28 
10 15 2402 BLT 999$ “BR, IF LESS T 
10701 315¢ 004 020152 JSR PC, CKDROP “TRY TO DROP THE UN 
1070. 156 999$: 
1070 } 
19708 
10706 0631 737 (017354 ° JSR PC, TSTLOOP :DO WE NEED TO ITERATE TEST - 
19909 poste 103002 BCC 165$ ‘BR, IF NO LOOP REQUIRED 
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A ee i 5 iy A M1200 29-MAR-83 13:43 PAGE 109-9 
10708 063164 000137 061070 
10710 06 % 1638: rail en 
063170 104432 s 
063172 00225 


sEXECUTE AGAIN 
sALL DONE THIS TEST 


TRAP CSEXIT 
Worn L100fe~. 





ooo 
Sy 
ae 
Ss 


Sssese 
a 
$08 


SSRIS. 


TEST 

1071 

1071 

10714 

10716 063174 
1071 

1071 

10 

10721 

10 g 

10 1 
is Se 
iss Si 
ies Seu 
10 

10 

18 og 
ies Bans 
Gres Sasi 
10 14 
10 1 
10741 

10743 

og: 

10745 

ius Saag 
10748 063336 
i Lk 

10750 

10751 063340 
Ores 0 
ise Sa 
10755 oe3344 
ia 
10758 

1 

1 

1 

1 

1 

1 

1 

: 

i 


AL lee TU8O FRONT END PRT C 
: WRITE/READ TAPE MARK 


Ss oo 
casey 7 
& 

aad -ah wxb 

et a mtd od od ed 


ed ed 2 ee eed ed excl wood 
md on BR card 


E—E 4 
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3+ 
LOCAL STORAGE FOR THIS TEST 


¢ .BLKB 
T28PACKET: 


T28DATA: 


T28BFR: .BLKW 
“WRITE SUBSYSTEM MEMORY COMMAND PACKET 
-BLKB 


T28PK2: 





1281MV 








10-<.-TUV2A87> 


it, 


10. 
T28BFR 
0. 
5. 


10-<.-TUV2A87> 
] 
1200s 


Sb-<.-TUV2Ae7> 
100005 
FREE 


SEQ 249 









;COMMAND PACKET FOR TEST | 

E CHARACTERISTICS COMMAND, WITH IE, ACK | 
SADDRESS OF CHARACTERISTICS BLOCK | 
{STARTING VALUE OF BLOCK SIZE 


Ss 
SCHARACTERISTICS DATA at 
SADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 
COMMAND, IE AND ACK 





sWRITE SUB SYS MEM 
SADDRESS OF SELECT BLOCK DATA 


SIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 
;BSEL1 AREA 
sSEL 2 AREA 
;DATA AREA 


s ILLEGAL MODE BITS TEST DATA 






E 
SWRITE TAPE MARK RETRY 
“END GF DATA 
i 


TAPE TIMER COUNTER STORAGE AREA 


;TAPE TIMER COUNTER STORAGE AREA 
:DELAY COUNTER 


seoeneateeenienneninimeeenenentie 





TEST 


10774 
10775 
10 





SEER 
S 
& 


oooo°o 

33 

SEPEPRSSSSS 
Wak? 


SSAA 


S 
= 


SoS ISM 


ek ka ek ek et et kk ek ak ed ed ed ed 


0 

0 

0 

0 

0789 

0790 

ore Heat 

ar Rats 

0794 064575 

0795 7 

anes 064725 

6797 065004 

0798 065062 

0799 065144 
065241 


PINTS 


MMMM UIA 
comet wad 
& 


RRRRERERE RR ERR RR RO 


ek meld wend nel) ema, cme me mee) ceed cme edd een com cold cx ened cme) oh ann ound wed od nd edd eh cand seed eed eee ced ech cn eed eed eed ee ed eed eed eed ee enc ceed een ceed wend eed eed ome eds ed 


SCERSRRERERSESESEEESSEGESECERES 
@ MEWN —§~O OBNAULS WN —O NOAM 


ee 


08 


NSS QYR SHELVES 


PRP SWSE 


12701 


Ce TUNAD me FRONT END PRT ake 
4: WRITE/READ TAPE MAR 


SMP NMNUNINNE & 


mh ee ee cme med enh ee wee can ee ed a ed ed ceed eed ed med od aed 
Ceprente terete. tht) 
Rad = IUTUTUIOS WN WIN EAA 


F344 
063210 
goneie 
065220 


000024 


a 


000000 
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ered, cond rok edd cord wos omc ce8 eed cad eed ead aod sd 8 mad ae ced coal coed oud 


Ss Sete en ey Ne 


063220 






3+ 
sLOCAL TEXT MESSAGES FOR TEST 










































: .ASCIZ Tape Position = Correct. RIB Should Be Set‘ 
: .ASCIZ Re dual Byte Counter Re ister. (RBPCR) Not Correct‘ 
: .ASCIZ ‘TSSR Incorrect After RE RSE Into TAPE K‘ 
: .ASCIZ ‘TSSR ooeaeent After SEA gu Ff Into TAPE MARK’ 
: .ASCIZ ~TSSR Not Correct _Atger I onal Mode Bits Set’ 
: ASCIZ dettee Bits, Failed To Set ILC Bit In xSTO’ 
SSR: .ASCIZ “WRIT NISCELLANEOUS” Command Not Accepted’ 
: eASCIZ ‘TSS AD DATA Command, Into TAPE MARK’ 
: ASCIZ ‘T Not At Command’ 
ret, *TSSR Not Correct After FORMAT peer Reject’ 
: ASCI ‘Rewind (POSIT af Not Accepted’ 
: .ASCIZ "Drive 7 Select Failed To Set ‘OFL** In TSSR’ 
: eASCIZ ‘TSSR Not ect After WRITE TAPE MARK C , 
: .ASCIZ ian Reset VCK In Message Buffer’ 
: ASCIZ r WRITE TAPE MARK Command‘ 
: ASCIZ 
ASCH 
Qe rid: "Data Transferred On READ REVERSE then A TAPE MARK’ 
A: .ASCIZ ‘Data coppere Error, Data Read From Tape Not Equal To Written’ 
D: LASCIZ ite/Read Tape Mark’ 
EVEN 
3+ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 
T28REST: 
SAVREG sSAVE THE REGISTERS 
MOV #T2BPACKET Rt :START OF THE PACKET 
MOV sWRITE SUBSYSTEM MEM. WITH ACK, 
MOV a BDATA, (R1)+ : SS OF CHARAISTICS DATA BLOCK 
CLR sEXTENDED ADDRESS 
MOV A (RIDe sSIZE OF DATA BLOCK IN BYTES 
ROV a SFR. (RI) SADDRESS OF MESSAGE BUFFER 
ot oe sLENGTH OF MESSAGE BUFFER 
MOV g(hh sSELECT DRIVE ZERO 
MOV #8, sNUMBER OF LOCATIONS TO BE CLEARED 
64$: MOV it T28BFR(R2) TALL ONES TO MESSAGE BUFFER 
TST sNEXT LOCA TION 
CMP te = CHECK FOR END 
BNE cREEP. GOING UNTIL DONE 
RTS * RETURN 
T28RT2: 
SAVREG sSAVE THE REGISTERS 


SEQ 250 


—— ———————— 





CZTUY RONT END PRT C 
TEST /READ TAPE MARK 
1 3310 
1 1 
! 06 
ae 
. 063340 
1 
1 
: 
’ 063330 
1 
1 
1 
1 
1 





T28RTS: 





G 4 


ee ane = ees eee ee eo eee ee 







2 START 
sWRIT 


OF THE PACKET 

SUBSYSTEM MEM. WITH ACK, 
SS OF DATA BLOCK 

ENDED ADDRESS 
E OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 
sRETURN 


GET PACKET ADDRESS 
; COMMAND ARE 


CLEAR ADDRESS AREA . 
CLEAR EXTENDED ADDRESS /" 4 
SIZE OF DATA TRANSFER 

; RETURN 





110074: 


TRAP 


CSETST 


SEQ 251 


”— 
eS 
Aron =<o 


Se ee en ee ee ee 
de ce ee ed ee ce ed ed ced a ed eed ed ed ed 
UFWN—O 


11950 
1031 
7 
6 
11951 32 
0 
74 
7 
11952 
04 
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H 4 
SEQ 252 


e-SBTTL HARDWARE PARAMETER CODING SECTION 


+ 
— + 





HE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIOWS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 








LSHARD 


BGNHRD 
_ «WORD L10076-LSHARD/2 







egg 02 S0N00. 177770. YES sGET TSBA/TSDB REGISTER ADDRESS. 
HPM1 


OLIA 
TSHILIA 
Hen .0.0,776, VES sGET VECTOR ADDRESS. 


$c 
$i 


EVEN 

eASCIZ ‘DEVICE ADDRESS (TSSR) ° 
ett "INTERRUPT VECTOR ' 
mee "INTERRUPT PRIORITY ’ 


| 
| 
0,340,0,7,VES :GET INTERRUPT PRIORITY. 
| 
| 
| 
: 
| 
| 
| 
| 


oO 


OO0OO 
SS Baan 


5 


etd cond tad weed comb ened weed cod cocdd red cond et aud wd 
owl cad cet ol) nth wd ove ad ed eh and ool amd ocd 





Heats 
¢ 574 
0 57 

He: 

11991 

136 

1199 

11994 

11995 072604 





ZT TUSO FRONT END 
SOF PARAMETER COD 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
000006 
11 
1 
4 
1 
11971 
001130 
0 1 
1 
11 
11 
11 


NO 
Wye 
oo 


RAGS 

ed mab cod 

OOK 
a 





I 4 


-SBTTL SOFTWARE PARAMETER CODING SECTION 













SOF TWARE tg ee CODING SECTION CONTAINS MACROS 
D THE SUPERVISOR TO BUILD P- lone BU 





MACROS 
INTERPRETED BY A 
MACROS ALLOW THE SUPERVISOR TO ESTABLI 
WITH THE OPERATOR. 


BGNSFT 
WORD L10077-LSSOFT/2 


— SPM1,0,-1, YES 
TSCODE. 





COMMUNI CATIONS 






GET RAM DUMP FLAG 







; GET ITERATION CONTROL. 


GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 


Sh 8-1 8 








PATCH AREA 


3¢ 

“DISPATCH TABLE 

+ se MOVE TO FRONT OF PROGRAM FOR RELEASE **« 

‘ DISPATCH TESTNO 

LSDISPATCH: : ss 
WORD Te 
“WORD T 
“WORD 1% 

FINALLY A GENEROUS PATCH AREA. 


AND AN ADJUSTMENT TO ACCOUNT FOR ar oe BIT7** HACK 
DESCRIBED IN “‘SUPPRG.MEM (FOR REV C 


SEQ 255 


EEE EE ES - -_—-—- = 


J 4 







































SEQ 254 
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.f MOVER: 
61 177777 #~1,R1 : 
73h = $$ ; 
162< 073020 #MHDR+ROMBASE-MOVER.R3 ; 
5636 72776 J PC PRIN ; 
6 3¢ 172340 TESTSA: aki ; 
r¢ 636 i MO #K IPDRO : 
Shc RO : | 
0E . 20S: CR1)+ ; 
1009 072646 01 77406 #77408, <RS)* : | 
510 re } 200 R : | 
4! ; +; y. if 1600 #i e ME | 
013 072664 007600 #7600,-(R1) : Pp | 
1014 072670 { 2000 172354 16$: #2000 46K IPARG “MOVER MEMORY PAGE 32KWORDS | 
015 072676 OC R S INITIAL LOCA MOVER | 
016 0 ¢ 140000 178: #140000,R1 SMOVER AT LOC 0, RELATIVE TO KIPAR6 | 
1 % C 10S: (R5)+,R4 :GET MEMORY CONTENTS 
1018 % C 000001 177572 #1 ,a#SRO ENABLE Y MANAGEMENT | 
02 5 ¢ 000001 177572 #1 aH5R0, : OFF MEMORY MANGEMENT | 
021 157776 R1,8157776 SEND OF MEMORY PAGE YET ? ! 
088 cles 172356 #200, ask IP tHAP INIONERT PAGES | 
502 iC 909902 §08200 QFKIPARG,@ :UP TO bak Y | 
25 7 17$ : UNTIL ALL MEMORY WRITTEN | 
02¢ ; 1 177572 : OFF MEMORY MANGEMENT | 
i 3 o73t07 +ROMBASE-MOVER,R3 :POINT TO 
1028 07676. 72776 PC PRINT "CODE | 
¢ r 073156 RLBOOT ; | 
303 : PRINT ROUTINE 
C 77% PRINT: 
1035 072776 004 7 073004 1$: JSR PC, TTYPRT :G0 TO PRINT ROUTINE 
D3 1375 BNE 1 : T IS FOUND 
i 207 RTS =—s-sPE [RETURN TO CALLER | 
5035 : CHARACTER PRINT ROUTINE | 
1 105737 177564 TTYPRT: TSTB a#TTOCSR ;CHECK TTY FOR DONE | 
é 10 1 ; BPL TYPRT SLOOP UNTIL DONE SETS | 
12 112337 177566 (R3)+,@#TTOBFR [SEND OUT CORRECT CHARACTER | 
: 16 PC :RETURN TO CALLER 
: AREA | 
015 01 115 MHDR: <15><12>/MOVER_REV 0.04 | 
15 1 103 <15><12>/CODE FROM O-32K MOVES TO 32-64K WORDS/ | 
197 15 1 103 GOOD: <15><12>/CODE HAS BEEN MOVED/<15><12> | 
137 15 1 102 B00T: <15><12>/BOOTING XXDP/ 





—— ee em ee 








CZTUYAO TU8O FRONT END PRT C 
PATCH AREA 


—] 


OI OOCOOOOOOMS 


=$=$-}-}-f= 


T= 
a oe 


ued ened ema ed eed ee end coed ed eed end eed) eed ced ceed ced cos eed ced eed ee cd eed ern ec ceed ee ceed eed ed ced eed ceed eed aed ed ed ed 


ttt3-¢5 


SIAR INASS 
COSCCOECCOOOOOOOCO OOOO 


7 


coed wart wend oe one mab 
rn =~ + 4p - - 


+ ¥,] —_ 
+? 
ewe eb wend oe 
& = > —s > 


+t-a?-at-et-¢?-4t-4t-4t-@t-0+-¢f-¢+ 


ttt es 
ORNS EVO 


ab ow’ C5 


©) 
o 


011 


2704 
7 
Obs 10 
ie 
204 


aoe 


sess 
SNES 


oa 


se 
—) 
=n 
wos 
QNGOAS 


. 
= 





174400 
174404 
13 


20 
000001 


177730 
000006 


073320 
000177 


073320 
174402 
177400 
073320 
000240 


073137 
072774 


RLBOOT: 
1$: 


2$: 
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MOV #CSR,RI 
#0 

MOV #DLSR, (ROD+ 
RS, 3$ 


JSR 
.WORD OLGETS 
BIT #READY ant 


BNE 

MOV (RO) RG 

BIC ADLERR,R4 

BEQ 

CMP #DLUN,R4 

BLOS 6 7$ 

BR 1$ 

JSR RS, 3$ 

“WORD DLRDHD 

MOV R 
#OLCYL R4 
R4 






#240 ,a#0 


#B00T +ROMBASE-MOVER ,R5 
oe 


JSR 
CLR 


END TEST NUMBER SIXTEEN 











TATUS COMMAND 

CHECK FOR DRIVE READY 

IF READY 
GET STATUS INFO 
ERROR MASK 
BR IF NO PACK 
ae HEADS CHECK 
US T AROUND FOR READY 


RETURN TO SAVE CODE 
CURRENT HEAD POSITION 








ADD 

sCYLINDER 0 SECTOR 0 

3256 WORD TRANSFER 2°S COMP 
;D0 THE READ 


[READ COMMAND 
:POINT TO DRIVE 0 


LOOKS GOOD JUMP 


SEQ 255 
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SEQ 256 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 138 
PATCH AREA 








T 
12093 0 012511 3$: MOV (RS)+.aR1 
1 03 711 100200 4$: BIT #DLONER,@R1 
1 1775 BEQ 4$ ! 
: 000205 rss 
1 ? arte S$: SOB 4OtséiRR2«w 1S | 
15100 973320 900000 7s: HALT | 
13 5 $0000 8$ HALT | 
| 

1210 : IF NZ,.8377 
13188 “=. 1377 | 
12106 073344 ‘ LASTAD sSET LAST USED ADDRESS. 

0 073362 “WORD TSFREE 

0 ; 000005 “WORD TS$SIZE 

07335 LSLAST:: 
! 107 ie .SBTTL HARD CODED P-TABLE 
! 109 ; DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
12111 073350 ; BGNSETUP 1 
12112 073350 BGNPTAB 

073350 000000 .WORD 0 

07 52 000003 adil “WORD 110102-./2-1 
1 1136 4 172522 "WORD 172522 
12114 07 56 000224 “WORD 224 
12115 073360 000240 “WORD PRIOS 
12116 07 ENDPTAB 

073 L10102: 
12117 0 ENDSETUP 
12118 
12119 000001 END 

| 





Mm 4 


Q 257 
CZTUYAO TU8O FRONT END PRT C MACRO M1200 29-MAR-83 13:43 PAGE 138-1 SEQ 2 
SYMBOL TABLE 

































ADDSSR 011772 G CTABM 003116 G DATASC FATERR= 060 GSYES = 10 
ADR = 06 = 5 DEBUGM FATFLG 170 G HIADDR= 0014 
AMBTSS G FERCM 011554 HIMEM = 007776 
ASSEMB= 1 2 FIFEXP 01 022 G HOE = 1 G | 
A1716 = 900003 FIFIMS 0120 HPM 
BADDAT 110 G c FI 12143 HME 7 | 
BADSSR 016550 G 00004 FI $72 72353 
BENBSW 4 174 G a012 G F 144 G itt = OC 3 | 
= 
Se ese Oe 5000 tittie F 72 G IER = G | 
BITO = 000001 G 000006 F 076 [FAULT 1 
BITOO = 000001 G 36 F 003074 G INCERK 17748 
B1TO1 = 000002 G 4 F 015 INTCPC 0170 
81102 = 000004 G 000051 F = 15 INTFLA 017015 
BITO3 = 10 G 000024 FSAUTO= 20 I 17014 
BIT04 = 20 G 000053 FSBGN = 0 INTR 017066 G 
BITOS = 06 000003 FSCLEA= INTREC 002172 G 
BIT06 = 000100 G CSERDF= 000055 FSDU = 000016 INTVEC 017016 
BIT07 = 000200 G = 00005 FSEND = 1 INTX 004176 
BITOB = 000400 G RO= F SHARD= 1OKCKI= 000200 
BITO9 = 001000 G 000054 6 FSHW = 1OKSTP= 000001 
BIT] = 000002 G CSERSO= 000057 FSINIT= IPRI 002160 G 
BIT10 = 002000 G 000010 G FSJMP = ISR = 000100 G 
BIT11 = 004000 G EG= 000005 G FSMOD = IVEC 002156 G 
BITI2 = 010000 G SESUB= 000003 10034 G FSMSG = IXE = 004000 G 
BIT13 = 020000 G 1 000037 G FSPROT= ISAU = 000041 
BIT14 = 04 G 9900 900040 6 F = ISAUTO= 000641 
BIT15 = 1 G TB 176 FSRPT = ISCLN = 1 
BIT? = 000004 G C$GETW= 00002 00000 FSSEG = 1$DU = 000041 
BIT3 = 000010 G CS$GMAN= 000943 1 O26 FSSOF T= ISHRD = 000041 
BIT4 = 000020 G 00004 021 FSSRV = ISINIT= 000041 
BITS = 000040 G 002146 G FSSUB = 1$MOD = 000040 
BIT6 = 000100 G I 0 if F$SW = ISMSG = 000041 
IT7 = 000200 G CS$INIT= 11 005764 F ISPROT= 000040 
BITS = 000400 G INLP 20 106025 AT 6 ISPTAB= 000041 
BIT9 = 001006 G 000050 111565 G ISPWR = 000041 
BOE = 000400 G 31 202 G G ISRPT = 000041 
BOOT 073137 25 1 : 4 6 ISSEG = 90004 
BRINIT 004355 = 0000 04 6 ISSETU= 1 
BSELO = 000000 CSPNTB= 000014 4 ISSFT = 000041 
BSEL1 = 000001 000017 6 GSDELM= 000 ISSRV = 000041 
C 0 CSPNTS= 00001 S I$SUB = 000041 
C 2 CSPNTX= 00001 p T = 000041 
C$Q10 = 000377 = = 000167 
= 7 G G$LOLI= 000001 172340 
te G i eS see 
3 G 376 17 326 
1 1 172350 
T 5 02 172352 
000046 G 00 172354 
I= 000041 44 G 1 172356 
000037 00 17 
PRI= 000013 17230 
Pata” 002256 G 600020 ceoRs: 1p 
DATAFL 01 623 tite KIPDR4= 17 8 


ee ee ee me ee ae | 





N 4 















Q@ 25 
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SYMBOL TABLE | 
KIPDRS= 172312 LSREV 002010 G L10057 041220 NULCR 4 0.GET 71 | 
or 17 Hp LSRPT Oe G L10060 G2 066 XM = 0°60 7 36 | 
KIPDOR7= 1723516 LSSOFT 072406 G 10061 724 R 0.601 7 | 
KTENAB 102 G LSSPC o3 056 G Lees 043644 NXRERR 176 G 0.602 7350 | 
KTFLG 100 G LSSPCP 020 G L1006 Baas RX 7 0.HIGH 14 
KTINIT 1 LSSPTP 002024 G L10064 045212 NXTU 2 ee 0.LG = 1 | 
KTOFF 020244 L$STA 002030 G 10065 045654 FL = 0001 O.LGCH 071541 | 
020226 L$SswW «002154 G L10066 poise ONEFIL= 000000 0.LGOR 136 
002140 G LSTEST 002114 G L10067 051446 APTS= 000000 0.LOW 144 ) 
1 LSTIML 002014 G L10070 b2gce? OSAU = 4d 0.MOVE 650 
040000 G LSUNIT 002012 G £10071 05 OSBGNR= 1 O.MSK 2142 
00 16e G 110000 002132 L10072 053730 OSBGNS= 1 0.O0DT 5446 G 
0127 L10001 002144 L10073 055446 OSDU = 01 0.OF ST 766 
114 G Lone 005226 L10074 065444 OSERRT= 0.0LD 3o% 
10 G L10005 011676 L10075 063140 OSGNSW= 00000 0.0P1 0663570 
110 G L10004 011726 L10076 072300 OSPOIN= 000001 0.0P2 34 
+ 36 G L10005 011744 L10077 07 age OSSETU= 0) 0.0P2A 42 
0 G L ioe 011752 L10100 073354 O.ADR1 0721 § O.ORAB 065674 
: G L10007 011770 L10102 073362 O.ALL 07054 0.ORPC 003634 
TO 02 G L10010 81g008 MEMADD 01 G 0.AS b66e36 O.ORRB 065 
106 G L10017 01 3 MENA 021351 O0.ASC 07152 0.P 071521 
0 G LIMO tg 012072 APTS O.ASCI 067552 0.PCS B6> 
oS 032 G L10013 012242 NRES 021400 0.BACK 066° 2 O.PRNT 070010 
PO a G Lies 012756 SBFA occas G O.BALL 070426 O.PROC 067 
003342 G L10015 01 01463 0.BD 071526 O.PROM 0715 
Heese HIE Ste ge BR Hag RA REE 
$7 G 110030 O1 56 800250 -BRK 56 O0.RDB = 177869 
Y 002116 G 10021 aie 072604 BW 071506 O.REG 071440 
0G 1 10058 16376 174406 O.BYT 066274 O.REGT 06556¢ 
034 G L10025 016420 000006 O.BYT1 066266 O.REM 070712 
0 G L10024 016446 000000 CAD 071510 0.RSB 07 
72 G L10025 4 000004 O.CADV 071054 O.RSR_ 07616 
34 G Les 1 000002 0.CLGT= p00 2 oRSTT 071 
Size G L100 02 GEXP 012010 G eCLSE 071352 a) 071517 
044 G L10031 0 MSGLOO 012716 G C 067712 0.SCAN 
op 102 G Las 0 MSGSTA 01 go G C 071531 0.SEMI 
L 046 G . L100 0 GSUB 015574 G O.CRET 066556 -SEQ 071524 
064 G 110034 02 -ATT= O.CRLF 071404 eSNGL 065754 
LSEXP ye G L10035 Og 200 O.CRLS 071420 O.SPAC 071340 
38 G LOSS 6 eRSD= 000001 O.CSR1 071522 -STM = 000540 
LSHI 120 G L10037 02 000020 O.CSR2 071525 O.SVR 070556 
LSHPC 016 G L10040 025026 S 000010 0.cT 072200 O.SVTT 070760 
022 G L10041 025462 $309 0.C1 744 O.SWCH 072150 
SHW 124 G Lee 0 43 NEWPAS 02221 O.DCD 066004 O.T 071520 
C 104 G L10043 027140 NODEV G O.DCDA 066362 O.TBIT 067316 
762 G L10044 027450 NOINIT 0.DCDB 066710 0.TBT = 20 
P $9 4 G L10045 0040 NOINTR 004117 O.DCD1 06602 O.TCLS 065726 
0 G L10046 051024 ITS 2136 G O0.DCD2 066020 O.TCSR= 177564 
100 G L10047 O3g0 14 O.D0T 071512 0.TDB = 177566 
74 G L10050 033444 NP.IR = 000200 O.DUMP 067472 O.TL 071576 
50 G L10051 034330 ~LOO= O.EFF 067076 O.TRTC 071606 
G Ligo3¢ O37620 NP.OUT= 000100 O.ERR 065774 0.TVEC= st by 
G L10053 036016 NP. WRP= 20 O.ERR1 66707 O.TYPE 071524 
1752 G L10054 0 NSI 004050 O.FCHR 07215 O.UIN 07 age 
112 G 110055 03751 NSINIT 004305 O.FCNT aa Ee O.UPC 0721 
062 G L10056 04055 NUL 004425 O.FTYP 071170 O.UPS 072140 
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T$$SUB= 910075 T251M 030514 T guss 50141 T 177 | 
T$$Sw = 010001 T25W8 30232 T 57167 0 | 
TSSTES= 010074 T25wDC 031401 T27BA 057527 S 1 | 
T1 0 G TOSWDE 030367 TO7BFR 0555 | 
n.. # T25WOR 030 9 T27BF 2 39630 | 
11.8 024404 TOSWNG 030€5 T27B0T 36 41 ON | 
T1. 0 T25WNH 031032 T27BSO 055650 T | 
™.4 025 T26AM3 047526 T27BS1 055651 7 | 
™1.5 026230 T26BA 050066 T27CNT 055 144 | 
11.6 027156 T26BFR 045740 T27C 556 5062 
7. 027466 T26BF2 046060 T27CON 055662 3346 
T2 031 56 G T26B0T 047115 T27DAT 053520 1070 
12.1 031722 126880 046060 T27DLY 356 2 3754 
12.10 0412 T26BS1 046061 T27DTA 060526 370 
T2.11 042104 T26CNT 046076 T27EOT 671 200 
T2.12 042742 T26C 046100 T27LON 057671 1 
12.13 0457 T27L00 051 i: 10 
T2.14 046104 T27LOP 057 3 30 
72.15 045230 T2 04 162 T27L00 056335 32 
T2.2 032624 0472 T27LOR 056210 
12.5 03 050230 TO7NEF 060211 15 
T2.4 034346 031722 T270FL $6 
T2.5 035266 050312 TO7PAC 05551 4 
72.6 036034 046726 T27PBP 060C 56 
T2.7 O 046601 T27PK2 05562¢ 
12.8 037 26 046176 r Tex 55640 5 
1Si0FL 03 §29338 As Wa 4 73 : 
T25BFR 030120 045720 TO7RES 0606 54 
T258F2 030240 050374 T27RN 055656 321 
T25BNC 030742 046030 T27RNC C 14 5 
T25B80T 030447 046050 T27RRE 056031 
030240 046052 T PRTe 160736 
T258S1 030241 56 T27RTS 061000 4 
030260 050640 T27RWN 0570 44 
Seton 03003 b494 ay eae Fd 353 
030110 Oc63 T27SSR 056416 338 
T Y 030262 0464 T27S B08 4 
SL 3704 0461 T27S 0556 106 
031115 507 1278 0556 
5 0 3 50774 T27TIM O 
TOSOFL 031326 0474604 T27™M 36: 056 1 26 G SOWLK= 
030100 046517 T27TRL 123 51076 
T25PK2 030210 047007 T27TSA 514 sec s 
0 oa oe T27VCK 454 5 
0302 04 T27WB8 5642 5305 
T25RES 0314 046064 T27w0c 057401 5374 SAL 
0311 04 7 T27WDD 27311 2 G 
T25RN %6 apn06 T27WDE 05 0 SOF 
T25RT 1 05001 T27WDF 09 G 
1624 04605 T27WDR G OR 
T25RWN 031257 4 T27WNG 4 
7650 T27WRF 4 USI 1 1 
0 7 T27WSS WAITF G x1. | 
9 4 046651 T ark : WC. IFA= X1.SPA= 
30244 046106 T28BF 2 WC. IFE= X17 .UNC= 
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C 

Ss 

Xe .BUF= 100 X2.SPA= 25800 X3.MBZ= X3.RIB= 1 X4.MBZ= 017400 
X2.EXT= X2.UNI= X3.MDE= 4 X3.SPA= X4.RCE= 

X2 .OPA= X2.WCF= 00 X3.0PI= th X35. TRF= X4.TSM= 
X2.RCE= X5.DCK= 1 X35.REV= X4.HSP= X4.WRC= 
X2.REV= 900077 


. ABS. 073 
900000 00! 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 36912 WORDS ( 145 PAGES) 
DYNAMIC MEMORY: 2 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:14: 
CZTUYA.BIC ,CZTUYA/=SP=SVC .MLB/ML ,CZTUYA.MAC 









